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. TITLE TSEM3 TSX-Plus EMT Overlay 

. ENABL LC 

. ENABL AMA 

. DSABL GBL 

Copyright <C) 1976, 1977, 1978, 1979, 1980, 1981, 1982, 1983, 1984, 1985. 

S&H Computer Systems, Inc. 
Nashville, Tennessee 

This software is furnished under a license for use only 
on a single computer system and may be copied only with 
the inclusion of the above copyright notice. This 
software, or any other copies thereof, may not be provided 
or otherwise made available to any other person except 
for use on such system and to one who agrees to these 
license terms. Title to and ownership of the software 
shall at all times remain with S&H Computer Systems, Inc. 



000000 
000000 



020551 
177776 



PS 



. CSECT T5EM3 
. RAD50 /EM3/ 
177776 



.: Overlay id 

•> Processor Status Word 



Macro calls 

. MCALL . CLOSE, . DSTATUS, . ENTER, . LOOKUP, . PURGE, . READW 

Global definitions 

. GLOBL CSISPC, CSIGEN, MONEMT, MQNABT, GETCXT, FRECXT, GTUKBL 

. GLOBL GETCHA, SETPRI, CPYEMT, KMCPCX, REDCXT 

Global references 

. GLOBL PRIVFO, $VNOTT, SPPRED, SMONHD 

. GLOBL NLCHN, C. CSW, CSSOPN, CSfNMX, LDDEVX, KEYRCB, RC**SZ 

. GLOBL RC*BLK, RC*BAS, LCXPAR, JPWDEV, JPWTYP, JPWFLG 

. GLOBL NUCHN, STOP, ASNTBL, MAXASN, RESDEV, OKFILE, MAXACC 

. GLOBL OF**SZ, LDNAME, MAXLD, LDPDEV, LDSIZE, LDBASE, LDFLAG, CPYMNT 

. GLOBL P2*VIR, PRIVC2, PO*SYS, *DILUP, LPARNT, P2*CXT, AT**SZ 

. GLOBL PRIVCO, PRIVSO, PVNPW, PO*SPV, PRIVAO, VPRIDF, MXJPRI, LBSPRI 

. GLOBL SPCFLG, EMTBLK, URO, VALADW, CSIBUF, GETUCH, CFPNT, USRUCA 

. GLOBL OVRHC, ASKLIN, VALADB, PUTUCH, EMTXIT, CSIEQL, SWTCNT, CSIDEV 

. GLOBL CSIARE, ERRLOC, CSIMSG, SETERR, TAB, CSIFIL, CSIUSP, $NOVLN 

. GLOBL LMONHD, MONFGH, JM*LNK, v/M*JOB, JM*RTN, LSW9, LSW2, LSW2S 

. GLOBL BADEI1T, LSTSL, SETERR, UMODE, EMTPS, $INKMN, LSW4 

. GLOBL GETQ, CG*RO, CG*R1, CO* JOB, UM*RTN, CQ*RTN, CQ*CP, CP*STD 

. GLOBL LPRI, CQSPRI, S*IOFN, CG*RNS, LITIME, S*HICP, QCOMPL 

. GLOBL USWPCH, CXTBUF, CXBOWN, CXBJOB, CXBBAS, CXBSIZ 

. GLOBL CORUSR, S*QCXB, ONSPNX, CHKABT, UREGO, *INCOR, LSW, CXBMOV 

. GLOBL CXTBAS, LSWPBK, USREMT, PR7, INTPRI, CXTRMN 

. GLOBL R*CHN, R*XCHN, CHNSIZ, MVSIZ 

Macros to enable and disable interrupts. 

.MACRO DISABL ; DISABLE INTERRUPTS 



TSEM3 



TSX-Plus EMI Overlay MACRO V05. 04 Friday 18-Dec~87 14:04 Page 1-1 



58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 000002 015270 



BIS #340, @#PS 

. ENDM DISABL 

. MACRO ENABL 

B.TC INTPRI,@#PS 

. ENDM ENABL 



i ENABLE INTERRUPTS 



Macro to print an error message when a system crash occurs. 

Arguments: 
MSG = Name of error message to print. 
ARC = (Optional) argument value to display with error message. 

. GLOBL DIEMSG, DIEARG, SYSHLT 

.MACRO DIE MSG, ARG 

MOV MSG, ft#DIEMSG 

.IF NB, ARG 

MOV ARG, @#DIEARG 

. ENDC 

CALL @#SYSHLT 

. ENDM DIE 

Macro definition for calling global routines residing in mapped 
system regions. 

. MACRO OCALL ENTADD 
.IF B, ENTADD 

ERROR i OCALL SPECIFIED WITH NO ENTRY ADDRESS 
. MEXIT 
. ENDC 

CALL OVRHC ; CALL THE OVERLAY HANDLER 

.WORD ENTADD ; SPECIFY THE ENTRY POINT 

. ENDM 

Data areas 

R50DK: . RAD50 /DK / 
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. SBTTL SETPRI — Set priority or privilege for job 
Set execution priority or privilege flags for job. 



SETPRI: TSTB 
BNE 



EMTBLK 
SETPRV 



Set job execution priority 



1$: 



>$: 



9$: 



MOV 


EMTBLK+2, R2 


BGT 


1* 


MOVB 


VPRIDF, R2 


CMPB 


R2, MXJPRI 


BLOS 


2* 


MOVB 


MXJPRI, R2 


MOVB 


R2, LBSPRKR1) 


MOVB 


R2, LPRKR1) 


BIT 


#*VNOTT, LSW(Rl) 


BEG 


9* 


OCALL 


SPPRED 


JMP 


EMTXIT 



j Set priority or privilege? 
; Set privilege 



•, Get specified execution priority 

; Br if value specified 

; If not specified* set default 

; Compare with max authorized priority 

> Br if ok 

; Get max authorized priority 

; Set base priority for job 

i Set current priority for job 

> Is this a subprocess not connected to term? 
; Br if not 

•Reduce priority of disconnected subprocesses 
; Finished 



4 
€ 
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000070 



000070 
000074 
000076 



000102 
000110 
000112 
000120 
000122 
000130 
000132 



000136 
000142 
000146 
000150 
000154 



000156 
000162 
000166 
000170 
000174 
000176 
000200 
000204 
000210 
000212 
000214 
000216 



000220 



013702 
010200 
004737 



123727 
001012 
032737 
001006 
123727 
00 1 002 
105337 



1 1 3700 
020027 
001424 
020027 
001453 



012703 
113700 
001406 
012703 
005300 
001402 
012703 
012700 
012346 
106622 
077003 
000504 



005005 
1 1 3704 



BYTE 


1, 150 


BYTE 


fun, perm 


WORD 


buffer 


WORD 






0000040 
OOOOOOG 

0000030 
000000G 
0000020 
0000030 



0000020 
000001 

000002 



Set privilege flags for job. 

The form of the EMT argument block is as follows: 

;Fun: 0=get, i=clear, 2=set Perm: 0=temp, l=perm 
» Buffer address 
.; (reserved ) 

SETPR V: 

Validate the user's buffer address 

j Get user's buffer address 

i Validate the address 
Only allow changes to authorization privilege flags if SETPRV is enabled. 



MOV 
MOV 
CALL 



EMTBLK+4, R2 
R2, RO 
VALADW 



000002 

0000000 

000002 



CMPB 

BNE 

BIT 

BNE 

CMPB 

BNE 

DECB 



EMTBLK+3, #2 > Does he want to access auth privileges? 

10* i Br if not 

#PO*SPV, PRIVCO .Does he have SETPRV privilege?' 



10* 

EMTBLK+2, #2 
10* 
EMTBLK+3 



See what the subfunction is 



10*: 



MOVB 


EMTBLK+2, RO 


CMP 


RO, #1 


BEQ 


2* 


CMP 


RO, #2 


BEQ 


5* 



i Br if yes 

;Does he want to set bits? 

> Br if not (allow access or clear-bits) 

; Can't change auth priv without SETPRV 



; Get subfunction code 
;Clear bits? 
; Br if yes 
;Set bits? 
i Br if yes 



Return current privilege flags to user 



OOOOOOG 
000003G 

OOOOOOG 



0000000 
OOOOOOG 



11*: 
1*: 



MOV 


#PRIVCO, R3 


MOVB 


EMTBLK+3, RO 


BEQ 


11* 


MOV 


#PRIVSO, R3 


DEC 


RO 


BEQ 


11* 


MOV 


#PRIVAO, R3 


MOV 


#PVNPW, RO 


MOV 


(R3)+, ~(SP) 


MTPD 


(R2) + 


SOB 


RO, 1* 


BR 


9* 



Point to vector with current flags 

Get type of priv flags wanted 

Br if wants current priv flags 

Point to table of perm flags 

Want perm flags? 

Br if yes 

Must want authorized privileges 

Get # words to move 

Get word with current flags 

Move to user's buffer 

Move all words with privilege flags 



User wants to clear some privilege flags 



000003G 



000226 

000230 012600 



2*: 
3*: 



CLR 


R5 


MOVB 


EMTBLK+3, R4 


MFPD 


(R2) + 


MOV 


(SP)+, RO 



> Init index into privilege words 
;Get type of privilege change wanted 
; Get flags from user 
» Pop flags 
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000232 
000236 
000240 

000246 
000252 
000256 
000260 
000264 
000270 
000274 
000276 
000302 



000304 
000306 
000310 
000312 
000314 
000322 
000324 
000326 
000332 
000334 
000336 
000340 
000344 
000350 
000352 
000356 
000362 
000370 
000372 
000376 
000402 
000406 
000410 
000414 
000416 
000420 
000424 



040065 
005704 
001411 
U4UU65 
040065 
020427 
001002 
040065 
062705 
020527 
103754 
004737 
000452 



005001 

005005 

106522 

012604 

032737 

001006 

010400 

046500 

001402 

040004 

005201 

050465 

105737 

001412 

050465 

050465 

123727 

00 1 002 

050465 

062705 

020527 

103740 

004737 

005701 

001404 

012700 

000137 



OOOOOOG 



uuuouuw 
0000000 

000002 

OOOOOOG 

000002 

OOOOOOC 

000434 ' 



4*: 



5*: 
8*: 



OOOOOOG OOOOOOG 



OOOOOOG 



OOOOOOG 
000003G 

OOOOOOG 
OOOOOOG 
000003G 000002 

OOOOOOG 

000002 

OOOOOOC 

000434 ' 



000001 
OOOOOOG 



6$; 



7*: 



BIC RO, PRIVC0<R5> 

TST R4 

BEQ 4* 

BIC RO, PRIVS0<R5> 

BIC RO, PRIVF0<R5> 

CMP R4, #2 

BNE 4* 

BIC RO, PRIVA0<R5) 

ADD #2, R5 

CMP R5, #PVNPW*2 

BLO 3* 

CALL FIXPRV 

BR 9* 



Clear current flags 

Change perm flags? 

Br if not 

Change permanent flags too 

Change command file privileges 

Change auth flags? 

Br if not 

Change authorization flags too 

Get index to next priv word 

Done all words? 

Loop if not 

Update LSW tables 



User wants to set some privilege flags 





CLR 


Rl 




CLR 


R5 




MFPD 


<R2) + 




MOV 


(SP)+, R4 




BIT 


#P0*5PV, PRIVCG 




BNE 


6* 




MOV 


R4, RO 




BIC 


PRIVA0(R5),R0 




BEQ 


6* 




BIC 


RO, R4 




INC 


Rl 




BIS 


R4, PRIVC0<R5) 




TSTB 


EMTBLK+3 




BEQ 


7* 




BIS 


R4, PRIVS0<R5) 




BIS 


R4, PRIVF0<R5> 




CMPB 


EMTBLK+3, #2 




BNE 


7* 




BIS 


R4, PRIVA0(R5) 




ADD 


#2, R5 




CMP 


R5, #PVNPW#2 




BLO 


8* 




CALL 


FIXPRV 




TST 


Rl 




BEQ 


9* 




MOV 


#1, RO 




JMP 


SETERR 


Fin 


i s h e d 





flag- 



Say no error detected yet 

Init index into priv words 

Get flags to be set 

Get flags 

Is user allowed to set any 

Br if yes 

Get flags to set 

Is user allowed to set all of these flags? 

Br if yes 

Clear disallowed flags 

Remember to report error 

Set current flags 

Is change to be permanent? 

Br if not 

Make permanent change 

Change command file privileges 

Change auth flags too? 

Br if not 

Change authorization privileges 

Get index to next priv word 

More priv words to change? 

Br if yes 

Update LSW tables 

Do we need to report an error? 

Br if not 

Return error code 1 



000430 000137 OOOOOOG 



9*: 



JMP 



EMTXIT 



> Finished 



FIXPRV is called after changing any privilege flags to set any 
privilege flags in LSW tables. 



000434 
000436 



010146 
113701 



OOOOOOG 



FIXPRV: MOV 
MOVB 



R 1 , - ( SP ) 
CORUSR, Rl 



;Get current job index number 
See if virtual line access is allowed? 



* 



TSEM3 


TSX-Plu 


s EMT 


SETPRI - 


-- Set p 


r i o r i t t.| 


115 


000442 


042761 


116 


000450 


042761 


117 


000456 


032737 


118 


000464 


001006 


119 


000466 


052761 


120 


000474 


052761 


121 






122 






123 






124 


000502 


012601 


125 


000504 


000207 



'erlay MACRO V05. 04 
or privilege for job 

0000000 000000G 
OOOOOOG OOOOOOG 
0000000 OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
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BIC 

33 1 C 
BIT 
BNE 
BIS 
BIS 



> Finished 

i 

1*: MOV 



#*NOVLN> LSW2(Ri )> Assume virtual line access is allowed 

#*NOVLN, LSW2S(R1) 

#P2$VIR, PRIVC2 ; Is virtual line access allowed? 

1* ; Br if yes 

#*IMOVLN, LSW2(Rl)i Disable virtual line access 

#*|\IOVLN, LSW2S<R1) 



(SP)+, Rl 



RETURN 
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000506 



000506 004737 002324 ' 

000512 103002 

000514 004737 OOOQOOG 



000520 013702 000004G 

000524 013703 000006G 

000530 013705 000010G 

000534 004737 001342' 



000540 004737 002410' 
000544 000137 0000000 



. SBTTL KMCPCX — Kmon EMT to copy context block data 

Tskmon EMT to copy data from the context block of another job into the 
context block of our job. 

Form of EMT argument block: 

. BYTE 0, 126 

. WORD 14 

. WORD job_number 

.WORD address„of_i tern 

WORD num_by tes_to_ct»py 

KMCPCX: 

Cain exclusive access to context block buffer 

ifiain access to context buffer 
i Br if got it 
; Job was aborted 



CALL 


GETCXT 


BCC 


1* 


CALL 


STOP 



Copy the requested data 



1*: 



MOV 


EMTBLK+4, R2 


MOV 


EMTBLK+6, R3 


MOV 


EMTBLK+S. , R5 


CALL 


CPYCXT 


Finished 




CALL 


FRECXT 


JMP 


EMTX1T 



; Get # of job we are copying from 
; Get address of item we are copying 
; Get # bytes to copy 
; Copy the data 



; Free the context buffer 



f 
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. SBTTL CPYEMT 



Copy file/privilege info from another job 



This EMT is used to copy the file and privilege information from another 
job. The form of the EMT argument block is: 



. BYTE 
. WORD 
. WORD 



subfun, 160 

jobnum 





000550 



000550 013702 0000020 
000554 006302 
000556 001407 



Where subfun has the following meanings: 

-=> Copy file assess information only. 

1 "=> Copy file info and privilege info. 

3 -=> Copy info from context block into program buffer. 
Jobnum is the number of the job that we are copying from. 

CPYEMT: 

See if the specified job is logged on 



000560 020J 



0000000 



000564 101004 

000566 032762 000000G OOOOOOG 

000574 001004 

000576 012700 000001 

000602 000137 OOOOOOG 



000606 026102 OOOOOOG 

000612 001407 

000614 032737 OOOOOOG OOOOOOG 

000622 001003 

000624 005000 

000626 000137 OOOOOOG 



10$: 



MOV 
ASL 
BEQ 
CMP 
BHI 
BIT 
BNE 
MOV 
JMP 



EMTBLK+2, R2 

R2 

10* 

R2, #1_STSL 

10* 



Get # of job we are copying from 
Convert to job index number 
Br if job number O 

; Valid job number? 

; Br if not 



1* 

#1, RO 
SETERR 



#*DILUP, LSW<R2> ; Is job logged on? 



Br if yes 
; Return error code 1 



See if job is privileged to do this 



1*: 



3*: 



CMP 


LPARNT<R1),R2 


BEQ 


4* 


B I 7 


#P2*CXT>PRIVC2 


BNE 


4* 


CLR 


RO 


JMP 


SETERR 



; Are we copying info from our parent job? 

; Br if yes — That is always legal 

; Are we authorized to copy context info? 

; Br if yes 

; Return error code 



See if we are copying into our context block or into program buffer 



000632 123727 OOOOOOG 000003 4*: CMPB EMTBLK, #3 
000640 001002 BNE 2* 

000642 000137 000676' JMP CPYCXD 



000646 004737 001022' 



000652 105737 OOOOOOG 

000656 00140b 

000660 026102 OOOOOOG 

000664 001357 

000666 004737 001222' 



Copy the file access info 
2*: CALL CPYFIL 

Copy the privilege info 



TSTB 


EMTBLK 


BEQ 


9* 


CMP 


LPARNT<R1),R 


BNE 


3* 


CALL 


CPYPRV 


Finished 





;Copy data into program buffer? 

•> Br if not 

;Copy context data into program buffer 



; Copy file access info for job 



; Does he want to copy privileges? 

; Br if not 

i Copying privileges from parent? 

; Br if not 

iCopy privilege info 



c 
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CPYEMT — Copy file/privilege info from another job 

f 

58 ; 

59 000672 000137 0000000 9$: JMP EMTXIT ; Finished with EMT 



TSEM3 TSX-Plus EMT Over- lay MACRO 
CPYCXD — EMT to get information from 



€ 



3 








4 








5 








6 








7 








S 








9 








10 








11 








12 








13 








14 








15 








16 


000676 






17 








IS 








19 








20 


000676 


004737 


002324 ' 


21 


000702 


103002 




22 


000704 


004737 


OOOOOOG 


23 








24 








25 








26 


000710 


013704 


000004G 


27 


000714 


006304 




28 


000716 


020427 


000004 


29 


000722 


101404 




30 


000724 


012700 


000002 


31 


000730 


000137 


OOOOOOG 


32 


000734 


016403 


001006' 


33 


000740 


016404 


001014' 


34 


000744 


010400 




35 


000746 


004737 


002726 ' 


36 








37 








38 








39 


000752 


013700 


000006G 


40 


000756 


004737 


OOOOOOG 


41 


000762 


013705 


OOOOOOG 


42 


000766 


006204 




43 


000770 


012546 




44 


000772 


106620 




45 


000774 


077403 




46 








47 








48 








49 


000776 


004737 


002410' 


50 


001002 


000137 


OOOOOOG 


51 








52 








53 








54 


001006 


OOOOOOG 




55 


001010 


0000000 




56 


001012 


0000000 




57 




000004 
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another jobs context 

SBTTL CPYCXD — EMT to get information from another jobs context 

Copy data from the context block of a job into a program buffer area. 

Inputs: 
Rl = Index number of our job 
R2 — Index number of job we are copying from 

EM7 argument block: 

. BYTE 3, 160 

. WORD job_number 

.WORD item„,index 

. WORD buffer_address 

CPYCXD: 

Gain exclusive access to context buffer 

iGain access to context buffer 

; Br if got it 

; Aborted while waiting 



CALL 


GETCXT 


BCC 


1* 


CALL 


STOP 



Get info about data to be copied 



i*: 



>*: 



MOV 


EMTBLK+4, R4 


ASL 


R4 


CMP 


R4, #MAXCXX 


BLOS 


2* 


MOV 


#2, RO 


JMP 


SETERR 


MOV 


CXXADR <R4),R3 


MOV 


CXXSIZ<R4),R4 


MOV 


R4, RO 


CALL 


REDCXT 



Move data to user's buffer 



3*: 



MOV 


EMTBLK+61 RO 


CALL 


VALADW 


MOV 


CXTBUF, R5 


ASR 


R4 


MOV 


<R5)+, -<SP) 


MTPD 


(R0) + 


SOB 


R4, 3* 


Finished 




CALL 


FRECXT 


JMP 


EMTXIT 



; Get index # of item of interest 

; Convert to word table index 

; Is it too big? 

iBr if ok 

; Return error 2 if too big 

> Get address of start of data 
; Get # bytes wanted 

; Read data into context buffer 



> Get address of user's buffer 

;Make sure buffer is ok 

i Get address of buffer 

;Get # words to move 

; Get next word 

i Move to user's buffer 

; Loop if more to move 



; Free context buffer 



Table of addresses of items in context block 



CXXADR: . WORD 
. WORD 
. WORD 

MAXCXX » 



JPWDEV 
JPWTYP 
JP WFLG 
. -CXXADR -2 



- Name of print-window device 

1 ~ Print-window device type 

2 - Print-window flag word 
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CPYCXD — EMT to get information from another jobs context 



Page 6-1 



58 
59 
60 
6i 
62 
63 
64 



Number of bytes to move for each item 



uuiui4 
001016 
001020 



OOOOuii' 
000002 
000002 



<JXXt>IZ: 



WORD 
WORD 
WORD 



- Name of print-window device 

1 - Print-window device type 

2 - Print-window flag word 
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1 

2 








3 








4 








5 








6 








7 








S 








9 








10 








11 








12 








13 


001022 


010346 




14 


001024 


010546 




15 








16 








17 








18 


001026 


004737 


001372' 


19 








20 








2.1. 








22 


001032 


012700 


0000000 


23 


001036 


012710 


056402 


24 


001042 


104375 




25 








26 








27 








28 


001044 


004737 


002324 ' 


29 


001050 


103002 




30 


001052 


004737 


OOOOOOQ 


31 








32 








33 








34 


001056 


012703 


0000000 


35 


001062 


012705 


OOOOOOC 


36 


001066 


004737 


001342' 


37 








38 








39 








40 


001072 


012703 


0000000 


41 


001076 


012705 


000002 


42 


001102 


004737 


001342' 


43 


001106 


012703 


0000000 


44 


001112 


012705 


OOOOOOC 


45 


001116 


004737 


001342' 


46 








47 








48 








49 


001122 


012703 


0000000 


50 


001126 


012705 


OOOOOOC 


51 


001132 


004737 


001342' 


52 


001136 


012703 


0000000 


53 


001142 


012705 


OOOOOOC 


54 


001146 


004737 


001342' 


55 


001152 


012703 


0000000 


56 


001156 


004737 


001342' 


57 


001162 


012703 


0000000 
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from another job 

. SBTTL CPYFIL — Copy file access info from another job 

CPYFIL is called to copy all of the file access information from 
another job to our job. The information copied is as follows: 

1. ASSIGN commands. 

2. Logical disk information. 

3. Mounted devices information. 

4. ACCESS control information. 

Inputs: 
R2 = Job index number of job whose file info is to be copied. 



CPYFIL 



MOV 
MOV 



R3» -<SP> 
R5, -<SP> 



Purge all channels that are open to logical disks 

CALL PRGLDC > Purge all LD channels 

Dismount all mounted devices for this job 

MOV #CSIARE, RO > Point to internal EMT arg block area 

MOV #2+<135*400>, <RO);Set EMT function code 

EMT 375 ; Dismount all devices for job 

Oain exclusive access to job context buffer 

Oet access to context buffer 

Br if got it 

Job was aborted while waiting 



;Point to assign table 
#MAXASN*AT$£SZ, R5> # bytes to get 

/Copy data into our context block 



CALL 


GETCXT 


BCC 


3* 


CALL 


STOP 



Set up ASSIGN information 

3*: MOV #ASNTBL, R3 
MOV #MAXAS 
CALL CPYCXT 

Set up ACCESS information 



MOV 

MOV 

CALL 

MOV 

MOV 

CALL 



; Get this control word 

i 2 bytes for this 

j Copy data into our context block 

; Now get actual access table 
#MAXACC*OF**SZ, R5 ;# bytes in table 
CPYCXT ;Copy data into our context block 



#RESDEV, R3 
#2, R5 
CPYCXT 
#OKFILE, R3 



Set up logical disk information 

iCopy each LD control table 



MOV 


#LDNAME> R3 


MOV 


#8. #MAXLD, R5 


CALL 


CPYCXT 


MOV 


#LDPDEV» R3 


MOV 


#2*MAXLD, R5 


CALL 


CPYCXT 


MOV 


#LDSIZE, R3 


wHLL 


CPYCXT 


MOV 


#LDBASE, R3 



TSEM3 
CPYFIL • 

58 

59 

60 
/. i 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 
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-- Copy file access info from another job 



001166 004737 001342' 
001172 012703 0000000 
001176 004737 001342' 



001202 004737 002410' 



001206 



001214 012605 
001216 012603 
001220 000207 



CALL CPYCXT 
MOV #LDFLAG, R3 
CALL CPYCXT 

Release the context block buffer 



CALL 
Copy mounts 

OCALL 

Finished 

MOV 
MOV 
RETURN 



FRECXT 



CPYMNT 



<SP)+, R5 
< SP ) +, R3 



Free job context buffer 



> Copy mounts 
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CPYPRV — Copy privilege flags from another job's context 



1 

2 

3 

4 

5 

6 

7 



9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 
op 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



; cue 

i22^ 



010346 
010546 



. SBTTL CPYPRV — Copy privilege flags from another job's context 

Copy the authorized and ?:et privilege flags from another job's context 
black to our context block. 

Inputs: 
R2 ~ Index number of job we are copying from. 



CPYPRV: MOV 
MOV 



R3, -<SP> 
R5, -<SP> 



Gain exclusive access to context buffer 



3*: 



001226 004737 002324' 

001232 103002 

001234 004737 0000000 



001240 012703 0000000 
001244 012705 000000C 
001250 004737 001342' 



001254 012703 000000G 
001260 004737 001342' 



001264 012700 0000000 

001270 005005 

001272 016565 0000000 000000G 1$: 

001300 016565 0000000 000000G 

001306 062705 000002 

001312 077011 



001314 012703 000000G 
001320 012705 000001 
001324 004737 001342' 



001330 004737 002410' 

001334 012605 

001336 012603 

001340 000207 



CALL 

BCC 

CALL 



GETCXT 

3* 

STOP 



Copy authorized privileges 



MOV 


#PRIVAO, R3 


MOV 


#PVNPW*2> R5 


CALL 


CPYCXT 



Copy set privileges 

MOV #PRIVSO, R3 
CALL CPYCXT 



;Oain access to context buffer 
■> Br if got it 
> Job was aborted 



;Point to authorized privilege vector 
; Get # bytes to copy 
iCopy context info 



iPoint to set privilege vector 
j Copy context into 



Set current privileges to set privileges 

MOV #PVNPW, RO ;Get # privilege words 

CLR R5 > Init index 

MOV PRIVS0<R5),PRIVC0(R5); Current privileges 

MOV PRIVS0<R5),PRIVF0(R5); Command file privileges 

ADD #2/ R5 i Increment word index 

SOB RO, 1* j Loop if more to copy 

Copy maximum authorized priority 

; Get maximum authorized priority 
> 1 byte 



MOV 


#MXJPRI, R3 


MOV 


#1, R5 


CALL 


CPYCXT 


i n i s h e cl 




CALL 


FRECXT 


MOV 


(SP)+, R5 


MOV 


<SP)+, R3 


RETURN 





; Free context buffer 



TSEM3 
CPYCXT 
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— Copy info from another job's context block 



3 
4 
5 
6 
7 

a 

9 
10 

u 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 



001342 010346 
001344 010546 



001346 010500 

001350 004737 002726' 



001354 013700 000000G 
001360 112023 
001362 077502 



001364 012605 
001366 012603 
001370 000207 



i 

c 



SBTTL CPYCXT 



Copy info from another job's context block 



CPYCXT is called to copy information from another job's context block 
into our context block. 

Inputs: 
R2 = Index number of job that use are copying from. 
R3 = Address within context block of info to be copied. 
R5 = Number of bytes to copy. 



CPYCXT: MOV 
MOV 



R3, -<SP> 
R5.- -<SP) 



Read the info into the context block buffer 



MOV 
CALL 



R5, RO 
REDCXT 



i Get # bytes to be read 

■> Move info into context buffer 



Now move info from buffer to our context block 



1$: 



MOV 


CXTBUF, RO 


MOVB 


(R0)+, <R3M 


SOB 


R5, 1* 


Finished 




MOV 


(SP)+, R5 


MOV 


<SP>+, R3 


RETURN 





; Point to buffer 

; Copy data into our context area 



( 

( 
( 
( 
» c 
< 
f 
< 

I 

i 
< 

i 

i 
i 

< 
i 
i 
i 
i 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
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to logical disks 

. SBTTL PRGLDC — Purge channels opened to logical disks 

PRGLDC is called to purge all channels that are opened to logical disks. 



001372 
001374 



10 001376 

11 

12 

13 

14 001402 

15 001404 

16 001410 

17 001414 
IS 001420 

19 001422 

20 001426 

21 001432 

22 001436 
23 

24 
25 

26 001440 

27 001444 

28 001450 

29 001452 

30 001456 

31 001462 
32 

33 

34 

35 001464 

36 

37 

38 

39 001474 

40 001476 
41 

42 
43 

44 001500 

45 001502 

46 001504 



010346 
010546 



012703 177777G 



010305 
013700 
062700 
020527 
103404 
162705 
062700 
070527 
060005 



016500 
032700 
00141 J 
042700 
120037 
001004 



000000G 
OOOOOOG 
000021 

000021 

OOOOOOC 

OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOC 
OOOOOOG 



005303 
002341 



012605 
012603 

000207 



PRGLDC: MOV 
MOV 



R3, -<SP> 
R5, -<SP) 



Begin loop through all channels 

MOV #NLCHN-1,R3 ; Get # of last channel 
Compute address of channel block for this channel 



1*: 



2*: 



MOV R3, R5 

MOV CXTRMIM, RO 

ADD #R*CHN, RO 

CMP R5, #21 

BLO 2* 

SUB #21, R5 

ADD #R*XCHN-R*CHN> RO 

MUL #CHNSIZ,R5 

ADD RO, R5 



Get channel number 

Get address of base of simulated RMON 

Point to block for channel 

Is this channel in extended channel area? 

Br if not 

Get channel # relative to extended channels 

Point to extended channel area 

Multiply by # bytes per channel 

Get address of channel block 



See if this channel is opened to a logical disk 



MOV 


C. CSW<R5>, RO 


BIT 


#CS*QPN, RO 


BEG 


3* 


BIC 


#"-C<CS*NMX>, 


CMPB 


RO, LDDEVX 


BNE 


3* 



RO 



Purge this channel 

. PURGE R3 
Check the next channel 



3*: 



DEC 


R3 


BGE 


1* 


Finished 




MOV 


<SP)+, R5 


MOV 


(SP)+, R3 


RETURN 





Get status word for channel 

Is this channel open? 

Br if not 

Extract device index number 

Is chan opened to a logical disk? 

Br if not 



; Purge the channel 



> Get next channel number 
; Loop if more to check 
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1 
o 



5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 



SBTTL Job monitoring EMT's 



001506 



001506 
001512 
001514 
001520 
001522 
001526 



001532 
001534 
001536 
001540 



113702 OOOOOOG 

006302 

020227 000010 

101402 

000137 OOOOOOG 

000172 001532' 



00 1 542 ' 
001666' 
001750' 
001732' 
000010 



The following EMT's are part of the TSX-Plus facility that allows one 
job to monitor the state of another job. 



The form of the EMT is 



BYTE 
WORD 
WORD 



code, 157 
arg 1 
arg2 



Where "code" is the sub-function code indicating which job-monitoring 
function is wanted. 

MONEMT: 

i 

•> Get sub-function code and see if it is legal. 

.; Get sub-function code 

> Convert to word table index 

; Is it legal? 

j Br if ok 

; Invalid sub-function code 

; Enter processing routine based on sub-functn 

Jump vector for sub-function codes 

— Begin monitoring a job 

1 — Stop monitoring a job 

2 — Send status to monitoring jobs 

3 — Send status from system program 
Max sub-function index 



MOVB 


EMTBLK, R2 


ASL 


R2 


CMP 


R2, #MXMONF 


BLOS 


1* 


JMP 


BADEMT 


JMP 


©MONFUN <R2> 



MONFUN: 


. WORD 


MONO 




. WORD 


M0N1 




. WORD 


M0N2 




. WORD 


M0N3 


MXMONF 


= 


. -MONFUN 



001542 



001542 
001546 
001550 
001554 



013702 
006302 
020227 
101040 



0000020 
0000000 



001556 004737 002234' 
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1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
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Sub -function # O 

Begin monitoring a specified job. 

10MO: 

Get the number of the job to monitor and see if it is valid 



MOV 
ASL 
CMP 
BHI 



EMTBLK+2, R2 

R2 

R2, #LSTSL 

8* 



Get # of job to be monitored 
Convert to job index number 
Is the job number too large? 
Br if ues 



The job number is valid. 

If our job has previously set up monitoring on the same job me are 

about to monitor^ release the previous monitoring. 

CALL MONREL ; Release any previous monitoring 

Get a free monitoring control block 



001562 
001566 
001570 

001574 
001600 



001606 
001612 



001620 
001622 
001624 
001632 
001636 
001640 
001646 



00165J 



001656 
001662 



013703 
001004 
012700 
000137 
016337 



110163 
013763 



005702 
001006 
013763 
010337 
000405 
016263 
010362 



000000G 

000002 

000000G 

000000G 



OOOOOOG 
000004G 



OOOOOOG 2*: 



MOV 
BNE 
MOV 
JMP 
MOV 



i Get a free monitor control block 

; Br if got one 

i Return error 2 if no free control blocks 



MONFQH, R3 

2* 

#2, RO 

SETERR 

JM*LNK<R3), MQNFGH ; Remove block from free list 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



Initialize the monitoring control block 

MOVB Rl, JM*JGB<R3> > Set # of job that is monitoring 
OOOOOOG MOV EMTBLK+4, JM$RTN<R3) ; Set address of completion routine 

Add monitoring control block to list for job being monitored 

TST R2 i Request to monitor all jobs? 

BNE 3* > Br if not 

OOOOOOG MOV SMONHD, JM*LNK(R3)i Add to list of requests for all jobs 

MOV R3, SMONHD 

BR 9$ 

MOV LM0NHD(R2>, JM*LMK(R3> ;Add to list for job being monitored 

MOV R3, LM0NHD(R2) 



OOOOOOG 3$: 



000137 OOOOOOG 



Fini shed 
9*: JMP EMTXIT 
> Error, invalid job number 



012700 
000137 



000001 
OOOOOOG 



8*: 



MOV 
JMP 



#1, RO 
SETERR 



; Return error code 1 



TSEM3 TSX-Plus EMT Overlay 
Job monitoring EMT's 



MACRO V05. 04 Friday lS-Dec-87 14:04 Page 13 



1 








2 








3 








4 








5 


001666 






6 








7 








8 








9 


001666 


013702 


0000020 


10 


001672 


001407 




11 


001674 


006302 




12 


001676 


020227 


OOOOOOG 


13 


001702 


101007 




14 








15 








16 








17 


001704 


004737 


002234 ' 


18 


001710 


000402 




19 








20 








2.1 








22 


001712 


004737 


002210' 


23 








24 








25 








26 


001716 


000137 


OOOOOOG 


27 








28 








29 








30 


001722 


012700 


000001 


31 


001726 


000137 


OOOOOOG 



Sub function 1. 

Stop monitoring a job. 

M0N1: 

Get the number of the job to monitor and see if it is valid 

; Get # of job to be monitored 
; Zero ==> Release all monitors 
j Convert to job index number 
; Is the job number too large? 

i Br if yes 

Release monitoring a specific job 

jRelease monitoring the specified job 



MOV 


EMTBLK+2, R2 


BEG 


1* 


ASL 


R2 


CMP 


R2- #LSTSL 


BHI 


8* 



CALL 
BR 



MONREL 

9* 



Release monitoring all jobs 
1$: CALL MONABT ; Release all job monitoring 

Finished 
9*: JMP EMTXIT 

Error — Invalid job number specified 



8*: 



MOV 
JMP 



#1, RO 
SETERR 



; Return error code 1 



« 
i 
< 
i 
< 
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1 
2 
3 
4 

5 001732 

6 001740 

7 001742 

8 001750 
9 

10 
11 

12 001750 

13 001754 

14 001756 

15 001762 

16 001764 

17 001766 
18 

19 
20 
21 
22 

23 001772 

24 001774 

25 002000 

26 002006 

27 002010 

28 002016 

29 002020 

30 002026 

31 002030 
32 

33 
34 
35 

36 002034 

37 002036 

38 002040 

39 002044 

40 002050 
41 

42 
43 

44 002052 

45 002056 

46 002060 

47 002064 

48 002070 
49 

50 
51 
52 002072 



Sub Functions 2 and 3. 

Send a signal to monitoring jobs. 



032737 OOOOOOG 

001003 

112737 000002 



OOOOOOG M0N3: 
OOOOOOG 



BIT #PO*SYS, PRIVCO ; Do we have SYSPRV privilege? 

BME M0N2 ;Dr if yes 

MOVB #2, EMTBLK > Change to user send if not 



M0N2: 

If there are no monitoring jobs* return error code 0. 



016103 
00 1 006 
005737 
001003 
005000 
000137 



OOOOOOG 



OOOOOOG 



OOOOOOG 



MOV LM0NHD<R1). R3 

BNE 1$ 

TST SMONHD 

BNE 1* 

CLR RO 

JMP SETERR 



.; Are there any monitoring jobs? 

.; Br if yes 

; Any monitoring of all jobs 

; Br if yes 

; Return error — Noone monitoring us 



01 01 05 
072527 
032737 
001412 
032761 
001006 
123727 
001402 
052705 



1*: 



177777 
OOOOOOG 

OOOOOOG 

OOOOOOG 

100000 



OOOOOOG 
OOOOOOG 
000003 



MOV 


R1,R5 


ASH 


#-1, R5 


BIT 


#UMQDE, EMTPS 


BEG 


3* 


BIT 


#*INKMN, LSW4<R1> 


BNE 


3* 


CMPB 


EMTBLK, #3 


BEQ 


3* 


BIS 


#100000, R5 



005703 
001405 
004737 
016303 
001373 



013703 
001405 
004737 
016303 
00 1 373 



002076 ' 
OOOOOOG 



3*: 
6*: 



OOOOOOG 

002076 ' 
OOOOOOG 



There are some monitoring jobs. 

Determine if this status is being generated by the system or by 

a program being run from the monitored line. 

Get our job index number 

Convert to job number 

Was EMT done in user or kernel mode? 

Br if in kernel mode 

Is TSKMON sending status? 

Br if yes 

Send status from system program (like LOGON) 

Br if yes 

Set usei — generated-status flag 

Begin loop to generate a completion routine for each job that is 
monitoring us. 

i Any requests to monitor this specific job? 

; Br if not 

j Queue a completion routine for monitoring job 

i Are there more monitoring jobs? 

> Loop i f yes 

See if there are some pending monitoring requests for all jobs 

.; Any requests to monitor all jobs? 

; Br if not 

; Queue the completion routine 

; More requests? 

; Loop if yes 



TST 


R3 


BEQ 


5* 


CALL 


MONQUE 


MOV 


JM*LNK(R3),R3 


BNE 


6* 



000137 OOOOOOG 



5* : MOV 


SMONHD, R3 


BEQ 


9$ 


4$: CALL 


MONQUE 


MOV 


JM*LNK<R3>, R3 


BNE 


4* 


j Finished 




9*: JMP 


EMTXIT 
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10 002076 

11 002100 
12 

13 

14 

15 002102 

16 

17 

18 

19 002106 

20 002112 

21 002120 

22 002124 

23 002130 

24 002136 

25 002144 

26 002152 

27 002160 

28 002164 

29 002166 

30 002174 
31 

32 

33 

34 002176 

35 

36 

37 

38 002202 

39 002204 

40 002206 



010146 
010446 



004737 OOOOOOG 



010561 
013761 
1 1 6300 
110061 
016361 
116061 
112761 
112761 
005760 
001403 
112761 
010104 



OOOOOOG 
0000020 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



MONGUE is called to queue a completion routine to pass a monitoring 
status message to a monitoring job. 

Inputs: 
R3 = Pointer to monitor control block <JM$xxx> 
R5 = Job number and system status flag to be passed in RO 
EMTBLK+2 = Status code to be passed to completion routine in Rl 



MONQUE: MOV 
MOV 



R 1 » - < SP > 
R4, -(SP) 



OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 



004737 OOOOOOG 



012604 
012601 
000207 



Get a free completion queue element. 

CALL GETQ ; Get free queue element <addr in Rl) 

Set up information in the completion queue element 

MOV R5# CQ*R0(R1> iPass job number in RO 

MOV EMTBLK+2, CG*R1<R1> > Pass status code in Rl 

MOVB JM*J0B<R3>, RO > Get # of job mho is monitoring us 

MOVB RO, CQ$J0B<R1) ; Completion routine is for that job 

MOV JM*RTN<R3),CQ*RTN<R1>; Set address of completion routine 

MOVB LPRKRO), CQ$PRKR1>; Set execution priority 

MOVB #S*IOFN, CQ*RNS(R1>; Set job execution state 

MOVB #CP*STD, CQ*CP<R1 ); Set compl routine class priority 

TST LITIME(RO) ; Is this an interactive job? 

BEQ 2* ;Br if not 

MOVB #S*HICP, CQ*RNS<R1 )> Set interactive state 

MOV R1.R4 iGet address of Q element to R4 for QCOMPL 

Queue a completion routine for the monitoring job 

CALL QCOMPL > Queue a completion routine 

Finished 



MOV 


<SP>+, R4 


MOV 


<SP>+, Rl 


RETURN 
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1 

2 

3 

4 

5 

6 

7 

3 002210 010246 

9 
10 
11 

12 002212 012702 OOOOOOG 
13 
14 
15 

16 002216 004737 002234' 
17 
18 
19 

20 002222 162702 000002 

21 002226 002373 
22 

23 
24 

25 002230 012602 

26 002232 000207 



MONABT is called to release all job monitoring requests issued by a 
job. 

Inputs: 
Rl - Job index number of job whose monitoring requests are to be released. 

HONABT: MOV R2, -(SP> 

Begin loop to release requests for all jobs on the system. 
MOV #LSTSL.. R2 ; Get # of last line 

Release all monitoring being done on that job by our job 
1*: CALL MONREL j Release monitoring 

Loop if more jobs to check 

i Are there more jobs to check? 
; Loop if yes <0=monitor all jobs) 



SUB 


#2, R2 


BGE 


1* 


Finished 




MOV 


<SP>+, R2 


RETURN 





( 

i 

i 
i 
( 
< 
i 
i 
i 
< 
« 
i 
i 
i 
i 
i 
i 
i 
i 

i 
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2 






3 






4 






5 






6 






7 






8 






9 002234 


010346 




10 






11 






12 






13 






14 002236 


005702 




15 002240 


001003 




16 002242 


012703 


0000000 


17 002246 


000403 




IS 






19 






20 






21 002250 


012703 


OOOOOOG 


22 002254 


060203 




23 002256 


011300 




24 002260 


001417 




25 002262 


120160 


0000000 


26 002266 


001010 




27 002270 


016013 


OOOOOOG 


28 002274 


013760 


OOOOOOG OOOOOOG 


29 002302 


010037 


OOOOOOG 


30 002306 


000763 




31 002310 


010003 




32 002312 


062703 


OOOOOOG 


33 002316 


000757 




34 






35 






36 






37 002320 


012603 




38 002322 


000207 





MONREL is called to release a monitoring request that has been 
made by one job on another job. 

Inputs: 
Rl = Job index of job that issued the monitor request. 
R2 = Job index of the job that is being monitored (O^all jobs). 



MONREL: MOV 



R3, -<SP) 



If monitored job # = then check system monitor chain, 
otherwise check chain for monitored job. 



1ST R2 

BNE 3* 

MOV #SMONHD, R3 

BR 1* 



; Monitoring 1 job or all jobs? 

; Br if monitoring .1 job 

;Point to list head for sys monitor list 



3*: 
1*: 



2*: 



Begin to follow chain of monitoring blocks for job being monitored 

Point to list head for monitor blocks 

Point to list head for job of interest 

Get address of next monitor control block 

Br if no more 

Was this block issued by job of interest? 

Br if not 

Remove block from list 



; Get address of next block 
/Point to cell with forward link 
i Go continue following list 



9*: 



MOV 


ttLMONHD, R3 


ADD 


R2, R3 


MOV 


<R3>, RO 


BEO 


9* 


CMPB 


Rl, JM*JOB<RO) 


BNE 


2* 


MOV 


JM*LNK<RO), <R3) 


MOV 


MONFQH, JM*LNK < R 


MOV 


RO, MONFQH 


BR 


1* 


MOV 


RO, R3 


ADD 


#JM*LNK, R3 


BR 


1* 


Finished 




MOV 


<SP)+, R3 


RETURN 





I 

I 
r 

< 
i 

i 
< 

€ 

< 
< 
C 
€ 

< 

< 
i 

i 
i 
< 
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9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 
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BBTTL GETCXT 



Obtain exclusive access to context buffer 



002324 



002324 

002332 1 1 3700 0000000 

002336 001415 

002340 120037 0000000 

002344 001415 



This routine is called to obtain exclusive access to the buffer 
used to access the context block for another job <CXTBUF). 
On return* exclusive access has been granted to the context 
block buffer unless the job was aborted while waiting for access. 

Outputs: 

C-flag cleared -■-> Access granted. 

C-~flag set ==> Job aborted while waiting for buffer. 

GETCXT: 

See if the context buffer is currently free 

1$: 



DISABL 

MOVB CXBOWN/ RO 

BEG. 3* 

CMPB RO, CORUSR 

BEG 2* 



; Disable interrupts 

>Is buffer currently freeT' 

i Br if yes 

/Do we already own buffer? 

; Br if yes 



Someone else owns the buffer now. 
Suspend our job until we can get it. 



002346 

002354 012700 000000G 

002360 004737 OOOOOOG 

002364 004737 OOOOOOG 

002370 000755 



002372 113737 OOOOOOG OOOOOOG 3* 
002400 2* 



EWABL 




MOV 


#S*QCXB> RO 


CALL 


QNSPNX 


CALL 


CHKABT 


BR 


1* 



We can get buffer now 

MOVB CORUSR, CXBOWN 
EMABL 

Fini shed 



;Enable interrupts 

;Get waiting-foi — buffer wait state 

/Suspend job until buffer is available 

/Were we aborted while asleep? 

i Go try to get buffer 



///Claim buffer for us 
/Enable interrupts 



002406 000207 



RETURN 

. SBTTL FRECXT — Free the context block buffer 



This routine is called to release our ownership of the buffer 
used to access the job context block of another job (CXTBUF). 



002410 123737 OOOOOOG OOOOOOG FRECXT: CMPB 



002416 001010 

002420 105037 OOOOOOG 

002424 105037 OOOOOOG 



002430 012700 OOOOOOG 
002434 004737 OOOOOOG 



002440 000207 



BNE 

CLRB 

CLRB 



CORUSR/ CXBOWN 

9* 

CXBOWN 

CXBJOB 



j Do we own the buffer now? 

; Br if not 

; Say the buffer is free 

/Say no job's context data in buffer 



Restart any jobs waiting for the buffer 



MOV 


#S*QCXB, RO 


CALL 


UREGO 


/ Finished 




9*: RETURN 





; Get wait state 
/Restart waiting jobs 



\ 
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1 

2 

3 

4 

5 

6 

7 

S 

9 
10 
11 

1 n 

A Si. 

13 

14 

15 G0244; 

16 



18 

19 002444 

20 

21 

22 

23 002450 

24 002454 

25 002460 

26 002464 

27 002466 

28 002472 

29 002476 

30 002502 
31 

32 
33 

34 002504 

35 002506 



010346 



004737 002510' 
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channel block 

. SBTTL GETCHA — Get address of user's channel block 

This routine is called to obtain a pointer to a specified I/O channel 
block for a specific job. 

Note: GETCXT must have been called to gain exclusive access to the 
job context buffer before this routine can be used. 

Inputs: 
R2 = Job index number 
R3 ~- Channel number 

Outputs: 
RO - Address of channel block 

GETCHA: MOV R3, -<SP> 

Get the simulated RMON for the specified job into CXTBUF 

CALL REDRMN > Get simulated RMON into CXTBUF 

Calculate address of specified channel block 



013700 
062700 
020327 
103404 
162703 
062700 
070327 
060300 



012603 
000207 



000000G 
000000G 
000021 

000021 

000000C 

000000G 



1*: 



MOV 
ADD 
CMP 
BLO 
SUB 
ADD 
MUL 
ADD 

Finished 



CXTBUF, RO 

#R*CHN, RO 

R3, #17. 

1* 

#17. ,R3 



; Point to RMON data in buffer 

;Point to 1st channel block 

; Is this channel in extended area? 

; Br if not 

; Get channel # within extended channel area 



MOV 
RETURN 



#R$XCHN~R*CHN> RO; Point to extended channel area 
#CHNSIZ,R3 ^Multiply by # bytes per channel block 
R3, RO i Get address of specified channel block 



<SP)+, R3 



i 
i 
< 

i 
i 

i 
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— Access simulated RMON for a job 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 



002510 010346 



002512 013703 0000000 
002516 012700 0000000 



004737 002726 ' 



002526 012603 
002530 000207 



. SBTTL REDRMN — Access simulated RMON for a job 

This routine is called to read into the job context block buffer 
the simulated RMON (including I/O channel blocks) for a job. 

Inputs: 
R2 = Index number of job whose RMON is to be rsad. 

Outputs: 
(CXTBUF) = Rmon data. 

REDRMN: MOV R3, -<SP> 

Set up information about the simulated RMON 



I 

i 



MOV 

MOV 



CXTRMN, R3 
#MVSIZ, RO 



;Get address of base of RMON with cxt blk 
; Get size of simulated RMON 



Get simulated RMON into context block buffer 

CALL REDCXT ; Get RMON into buffer 

Finished 

MOV <SP)+, R3 
RETURN 



c 
c 

€ 
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1 

2 
3 

b 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
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- Access region used for user key definitions 



002532 



25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



002532 004737 002324 ' 

002536 103002 

002540 004737 OOOOOOG 



002544 013702 0000040 

002550 012703 OOOOOOG 

002554 012700 000002 

002560 004737 002726 ' 



002564 013705 OOOOOOG 
002570 011503 
002572 001005 



002574 004737 002410' 

002600 005000 

002602 000137 OOOOOOG 



002606 012700 OOOOOOG 
002612 004737 002726' 



002616 032762 OOOOOOG OOOOOOG 
002624 001011 



002626 016537 OOOOOOG OOOOOOG 



. SDTTL GTUKBL — Access region used for user key definitions 

This routine is used to access a 512-byte page of information in 
the local named region used to store user key definitions. 

The form of the EMT i*: 

. BYTE 0, 126 

. WORD 17 

. WORD job_number 

.WORD b loc k_n umber 

. WORD destination., address 

The following error codes can be returned: 

= Job does not have any user-defined keys. 

1 - Job is swapped out of memory. 

GTUKBL: 

Gain exclusive access to context buffer 

>Gain access to context buffer 

; Br if got it 

> Job was aborted while waiting 



CALL 


GETCXT 


BCC 


1* 


CALL 


STOP 



Read KEYRCB cell into buffer 



1*: 



MOV 


EMTBLK+4, R2 


MOV 


#KEYRCB, R3 


MOV 


#2, RO 


CALL 


REDCXT 



Get number of job we are accessing 

Get address of cell we want 

Get # bytes we need 

Copy data from jobs KEYRCB cell 



See if job has a region assigned for key definitions 



MOV 


CXTBUF, R5 


MOV 


<R5>, R3 


BME 


2* 



Job has no user-defined keys 



CALL 


FRECXT 


CLR 


RO 


JMP 


SETERR 



Get pointer to base of context buffer 

Get value of KEYRCB 

Br if job has some user-defined keys 



Free context block buffer 
Return error code 



Job has some user-defined keys. 

Get the region control block into context buffer. 



1*: MOV #RC**SZ> RO 
CALL REDCXT 



iGet # bytes to access 
iCopy RCB into cxtbuf 



See if job is currently in memory. 

BIT #$INCOR, LSW<R2> i Is job in memory now? 
BME 3* ; Br if yes 

Job is currently swapped out of memory 

MOV RC*BLK<R5),UR0 ; Return swap file block # to caller in RO 
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58 002634 

59 002640 

60 002644 
61 

62 
63 
64 

65 002650 

66 002654 

67 002660 

68 002664 

69 002670 
70 

71 
72 

73 002674 

74 002700 

75 002704 

76 002710 

77 002712 

78 002714 
79 

80 

8.1 

82 002716 

S3 002722 



004737 002410 



000137 OOOOOOG 



016505 
013703 
072327 
012700 
004737 



013705 
013703 
012700 
012546 
106623 
077003 



004737 
000137 



OOOOOOG 

000006G 

000011 

001000 

OOOOOOG 



OOOOOOG 
0000 10G 
000400 



CALL 


FRECXT 


MOV 


#1, RO 


JMP 


SETERR 



; Free context block buffer 
; Return error code 1 



Job is in memory. 

Copy data from region into context buffer. 



3$: 



4$: 



0024 1 ' 
OOOOOOG 



MOV 


RC*BAS<R5), R5 


MOV 


EMTBLK+6, R3 


ASH 


#9. , R3 


MOV 


#512. , RO 


CALL 


CXBMOV 


Now move the 


data from the 


MOV 


CXTBUF, R5 


MOV 


EMTBLK+10, R3 


MOV 


#256. , RO 


MOV 


<R5)+, -<SP> 


MTPD 


(R3) + 


SOB 


RO, 4* 


Finished 




CALL 


FRECXT 


JMP 


EMTXIT 



;Get 64-byte block # of phys base of region 

; Get desired page of region 

; Convert page # to byte offset 

; Say to move 512 bytes 

■ Copy data into CXTBUF 

context buffer into the result buffer 

; Get current location of data 

j Get virtual address of result buffer 

i Get # words to move 

> Get next word 

; Move into result buffer 

; Loop till all moved 



iFree context block buffer 



TSEM3 
REDCXT 



TSX-Plus EMT Overlay MACRO V05. 04 Friday 18-Dec-S7 14:04 Page 22 
- Read a job context block into buffer 



1 
2 
3 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 



23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



002726 010346 
002730 010546 



002732 120237 OOOOOOG 

002736 001006 

002740 020337 OOOOOOG 

002744 001003 

002746 023700 0000000 

002752 103026 



002754 110237 OOOOOOG 

002760 010337 OOOOOOG 

002764 005200 

002766 042700 000001 

002772 010037 OOOOOOG 



002776 032762 OOOOOOG OOOOOOG 
003004 001407 



003006 016205 OOOOOOG 

003012 162703 OOOOOOG 

003016 004737 OOOOOOG 

003022 000402 



. BBTTL REDCXT 



Read a job context block into buffer 



This routine is called to read a portion of a job context block* 
belonging to some job other than the current job, into the 
CXTBUF buffer. 

GETCXT must have been called prior to calling this routine to 
guarantee exclusive access to the context block buffer. 

Inputs: 
R2 = Job index number of the job whose context block is to be read. 
R3 = Address of item in context block which is to be positioned 

at the base of the buffer 
RO = Number of bytes to be read <512 maximum). 



Outputs: 
CXTBUF contains specified data. 



REDCXT: MOV 
MOV 



R3, -<SP) 
R5, -<SP> 



CMPB 


R2, CXBJOB 


BNE 


1* 


CMP 


R3, CXBBAS 


BNE 


1* 


CMP 


CXBSIZ, RO 


BHIS 


9* 



1*: 



See if the requested data is already in the buffer. 

> Is data for right job in buffer? 

> Br if not 

;Is base item correct? 
; Br if not 
; Do we have enough data in buffer? 

> Br if yes — We are finished 

We do not have the correct data in the buffer. 

Set up information about what we will be getting into buffer. 

i Remember which context block we are getting 

; Remember base offset 

/Force size to be word multiple 

; Remember amt of data being gotten 

See if the job whose context data we want is currently in memory. 

BIT #*INCOR, LSW<R2> > Is job in memory now? 

BEG 2* ;Br if not 

Job is in memory. 

Do a memory-to-memory move to get the data. 



MOVB 


R2, 


CXBJOB 


MOV 


R3, 


CXBBAS 


INC 


RO 




BIC 


#1, 


RO 


MOV 


RO, 


CXBSIZ 



MOV 
SUB 
CALL 
BR 



LCXPAR<R2),R5 i Get base PAR mapping value 

#CXTBAS, R3 ; Convert address to offset within cxt blk 

CXBMOV ; Move data to context block buffer 

9* 



Job is not now in memory. 

Read the context block data from the swap file. 



003024 004737 003036 ' 



CALL 
F i n i shed 



CXBSWP 



j Read data from swap file 



TSEM3 
REDCXT 
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58 

59 003030 012605 

60 003032 012603 
6i 003034 000207 



9$- 



NOV 


(SP)+, R5 


MOV 


<SP)+, R3 


Kb I URN 





TSEM3 TSX-P1 


us EMT 


verlay 


CXBSWP — Read 

1 
2 
3 


job con 


fcoxt date 






,i 






5 






6 






7 






8 






9 






10 






11 003036 


010146 




12 003040 


010246 




13 003042 


010346 




14 003044 


010446 




1 b 






16 






17 






IB 003046 


162703 


0000000 


19 003052 


010301 




20 003054 


072127 


1 77767 


21 003060 


066201 


0000000 


22 






23 






24 






25 003064 


042703 


1 77000 


26 003070 


010302 




27 003072 


060002 




28 003074 


020227 


001000 


29 003100 


101402 




30 003102 


012702 


001000 








wC 






33 






34 003106 


006202 




35 003110 






36 






37 






38 






39 






40 003144 


005703 




41 003146 


001434 




42 003150 


006302 




43 003152 


160302 




44 003154 


010200 




45 003156 


006200 




46 003160 


013704 


0000000 


47 003164 


060403 




48 003166 


012324 




49 003170 


077002 




50 






51 






52 






53 003172 


013703 


000000G 


54 003176 


160203 




55 003200 


003417 




56 






57 
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. SBTTL CXBSWP — Read job context data from swap file 
Read some job context data from the swap file into CXTBUF buffer. 

Inputs: 
R2, CXBJOB = Index number of job whose context data is being read. 
R3.. CXBBAS = Address within context block of item to be read into 

the base of the context buffer. 
RO, CXBSIZ - Amt of data to be read (512. maximum) 



CXBSWP: MOV 
MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2, -<SP) 
R3, -(SP) 
R4, -(SP) 



Determine which block in swap file has start of data being read 



SUB #CXTBAS, R3 

MOV R3, Ri 

ASH #-9. , Rl 

ADD LSWPBK(R2), Rl 



; Convert address to offset within context 
> Get starting offset 

i Determine starting block # within context 
> Add base block # within swap file 



Determine how much data to read this time 



BIC 

MOV 

ADD 

CMP 

BLOS 

MOV 



#"C<777>, R3 
R3, R2 
RO, R2 
R2, #512. 

1* 

#512. , R2 



Read data from swap file 



1*: 



ASR 



R2 



; Get starting offset within 1st block 

; Get offset beyond last byte we need 
■> We cannot read more than 512 bytes 
; Br if don't need to truncate 
> Read 512 bytes this time 



> Convert # bytes to # words to read 



. READW #USREMT, #U3WPCH, CXTBUF, R2, Rl 

If data is not positioned at the start of the block, move it 
down to the base of the buffer. 



TST R3 

BEG 9* 

ASL R2 

SUB R3, R2 

MOV R2, RO 

ASR RO 

MOV CXTBUF, R4 

ADD R4, R3 

MOV (R3)+, (R4)+ 

SOB RO, 2* 



i Is data at base of buffer now? 

; Br if yes — Don't need to move 

; Get back # bytes read 

> Get # bytes we need to move down 

-Set # bytes to move 

;Get # words we need to move down 

j Point to base of buffer 

; Point to start of data we want 

j Move the data down 

; Loop till all moved 



See if the requested data spans a block boundary. 



MOV 

SUB 
BLE 



CXBSIZ, R3 
Re R3 
9* 



.; Get total amt of data requested 

; Get # left to be read 

■> Br if we have gotten all that was requested 



Read in second block to get remainder of data. 



006203 



TSEM3 TSX-Plus EMT Overlay 
CXBSWP — Read job context data 



58 
59 
60 

6 1 OUJ2Uk' 

62 003204 

63 003206 
64 

65 
66 

67 003240 

68 003242 

69 003244 

70 003246 

71 003250 
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Data from second block is read on top of data from first block 
so that we don't have to move it. 

INC Rl ; Increment block number 

ASR R3 i Get # words to read 

. READW #USREMT, #USWPCH. R4, R3, Rl 

Fini shed 



.1. 2604 
012603 
012602 
012601 
000207 



9$: 



MOV 
MOV 
MOV 
MOV 
RETURN 



< SP ) +, R4 
<SP)+, R3 
( SP ) +, RP 
<SP>+, Rl 



TSEM3 
. CSISPC 



TSX-Plus EHT Overlay 
Sc . CSIGEN 
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. SBTTL . CSISPC & . CSIGEN 
Command string interpreters. 



5 003252 


1 1 2737 


000001 0000000 


6 003260 


000420 




7 003262 
S 


105037 


0000000 


9 
10 






11 003266 


012705 


000010 


12 003272 






13 003302 


005305 




14 003304 

1 5 

16 003306 


002372 




013737 


0000 100 OOOOOOG 


17 003314 


042737 


000001 OOOOOOG 


IS 






19 






20 






21 






22 003322 


106506 




23 003324 
24 


012637 


OOOOOOG 


25 
26 






27 






28 003330 


013703 


000004G 


29 003334 


00 1 4 1 7 




30 






31 003336 


010300 




32 003340 


004737 


OOOOOOG 


33 003344 


012702 


OOOOOOG 


34 003350 


004737 


OOOOOOG 


35 003354 


020227 


000120G 


36 003360 


103003 




37 003362 


1 1 0022 




38 003364 


001371 




39 003366 


000435 




40 003370 


105012 




41 003372 

42 

43 003374 


000433 




005005 




44 003376 


023727 


0000 10G 000003 


45 003404 


101010 




46 003406 


00 1 004 




47 003410 


013705 


OOOOOOG 


48 003414 


005037 


OOOOOOG 


49 003420 


013702 


000006G 


50 003424 


000405 




51 003426 


012702 


OOOOOOG 


52 003432 


012746 


100052 


53 003436 


106612 




54 003440 


012703 


OOOOOOG 


55 003444 






56 003452 


005705 




57 003454 


001402 





CSISPC: MOVB 

BR 
CSIGEN: CLRB 



#1, SPCFLG 

CSICOM 

SPCFLG 



REMEMBER THIS IS . CSISPC 
REMEMBER THIS IS . CSIGEN 



Close user's channels 0-10 



MOV #10, R5 

. CLOSE R5 

DEC R5 

BGE 1* 



iGET LAST CHANNEL # TO CLOSE 

i CLOSE THE CHANNEL 

; MORE TO DO? 

i BR IF YES 
.CSIGEN returns address above user's handler space in RO. 

MOV EMTBLK+10, URO ; RETURN HANDLER SPACE ADDRESS IN RO 
BIC #1,UR0 jMAKE SURE ADDRESS IS EVEN 

Save the user's stack pointer on entry in case we have to 
restore it because we have a command error. 



CSICOM: MFPD 
MOV 



SP 

(SP)+, CSIUSP 



j Get user's stack pointer 

; Save in job context block cell 



Print prompt and get command line 

or move command from user's area to our area. 

CSIGCL: MOV EMTBLK+4, R3 ; ADDRESS OF USER'S COMMAND STRING 
BEQ 2* ;BR IF INPUT IS FROM THE TERMINAL 

> Move command string from user's area to our internal buffer. 



1*: 



9$: 



MOV R3, RO 

CALL VALADB 

MOV #CSIBUF, R2 

CALL GETUCH 

CMP R2, #<CSIBUF+80. 

BHIS 9* 

MOVB RO, <R2) + 

BNE 1* 

BR 3* 

CLRB <R2) 

BR 3* 



CHECK IF ADDRESS IS LEGAL 

PUT COMMAND HERE 

GET CHAR FROM USER'S AREA 

DON'T GO BEYOND END OF BUFFER 

BR IF COMMAND LINE TOO LONG 

MOVE TO OUR BUFFER 

LOOP TILL ASCIZ NULL HIT 

GO PROCESS THE COMMAND 

STORE NULL AT END OF COMMAND 

GO PROCESS THE COMMAND 



Prompt for and accept a command from the terminal. 



8*: 
6$: 

7$: 



CLR R5 

CMP EMTBLK+10, #3 

BHI 6* 

BNE 8* 

MOV CFPNT, R5 

CLR CFPNT 

MOV EMTBLK+6, R2 

BR 7* 

MOV #USRUCA, R2 

MOV #100052, -(GP) 

MTPD (R2) 

MOV #CSIBUF, R3 

OCALL ASKLIN 

TST R5 

BEG 3* 



ASSUME WE DON'T NEED TO SUSPEND COMMAND FILES 

IS THIS A . GTLIN EMT? 

BR IF NOT 

BR IF NOT FORCING INPUT FROM TERMINAL 

SAVE CURRENT COMMAND FILE BUFFER POINTER 

SUSPEND INPUT FROM COMMAND FILE 

GET ADDRESS OF USER'S PROMPT STRING 



;PUT # IN USER'S AREA FOR PROMPT 

MOVE TO USER'S AREA 

PUT STRING HERE 

PRINT PROMPT & ACCEPT LINE FROM TERMINAL 

DID WE SUSPEND INPUT FROM COMMAND FILES'? 

BR IF NOT 



TSEM3 


TSX-Plus EMT 0\ 


' e r 1 a y 


MACRO V05. 


. CSISPC 


& . CSIGEN 






58 


003456 


010537 


0000000 




59 








f 


60 








.; 


6i 








* 


62 








* 


63 


003462 


032737 


000001 


0000100 3$ 


64 


003470 


00 1 424 






65 








J 


66 


003472 


013703 


0000120 




67 


003476 


010300 






68 


003500 


004737 


0000000 




69 


003504 


012702 


0000000 




70 


003510 


1 1 2200 




5$ 


71 


003512 


001403 






72 


003514 


004737 


0000000 




73 


003520 


000773 






74 


003522 


004737 


0000000 


4$ 


75 










76 










77 










78 


003526 


023727 


0000100 


000003 


79 


003534 


101002 






80 


003536 


000137 


0000000 
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MOV 



R5, CFPNT 



REENABLE INPUT FROM COMMAND FILE 



The command line is now stored in CSIBUF in asciz form. 
Copy the string to user's buffer ,i f requested. 

BIT #1,EMTBLK+10 ; DOES USER WANT A COPY OF COMMAND LINE? 
BEQ CSISCN J BR IF NOT 

Move command line to user's buffer. 

GET ADDRESS OF BUFFER WHERE COMMAND GOES 

MAKE SURE ADDRESS IS LEGAL 
POINT TO BUFFER HOLDING COMMAND 
GET CHAR FROM COMMAND LINE 
BR WHEN ASCIZ NULL HIT 
MOVE CHAR TO USER'S BUFFER 

MOVE TERMINATING NULL 

■ finished 

IS THIS A . GTLIN EMT? 

BR IF NOT 

WE ARE FINISHED WITH . GTLINE 



MOV 


EMTBLK+12, R3 i 


MOV 


R3, RO 


CALL 


VALADB ; 


MOV 


#CSIBUF.. R2 ; 


MOVB 


<R2)+, RO ; 


BEQ 


4* j 


CALL 


PUTUCH > 


BR 


5* 


CALL 


PUTUCH ; 


If this is 


. GTLINE EMT, we are 


CMP 


EMTBLK+10. #3 i 


BHI 


CSISCN i 


JMP 


EMTXIT ; 



TSEM3 TSX-Plus EMT Overlay 
. CSISPC & . CSIGEN 
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3 
4 
5 

6 003542 

7 003546 

8 003550 

9 003554 

10 003560 

11 003562 

12 003566 

13 003572 

14 003574 

15 003600 

16 003602 

17 003604 
18 

19 
20 
21 
22 
23 
24 
25 
26 

27 003606 

28 003612 

29 003616 

30 003624 

31 003630 

32 003632 

33 003634 

34 003636 

35 003642 

36 003644 

37 003650 
38 

39 003652 

40 003654 
41 

42 003656 

43 003662 

44 003666 



105737 
001417 
013705 
042705 
010500 
062700 
004737 
010504 
012703 
005046 
106624 
077303 



105037 
105037 
1 3737 
012701 
010102 
1 1 2200 
001410 
120027 
001403 
120027 
001370 

005004 
000406 

012704 
062705 
105237 



0000000 
0000000 
000002 ' 
0000000 



000075 
000074 



0000000 

0000100 
000001 

000116 
0000000 

000047 



CSISCN: 


TSTB 


SPCFLG 




BEQ 


4* 




MOV 


EMTBLK+10, R5 




BIC 


#1, R5 




MOV 


R5, RO 




ADD 


#2#39. , RO 




CALL 


VALADW 




MOV 


RS, R4 




MOV 


#39. , R3 


1*: 


CLR 


-(SP) 




MTPD 


(R4> + 




SOB 


R3> 1 "$ 



OOOOOOG 



000003 
000036 
0000000 



At this point the command string has been accrued and is stored 
in asciz form in CSIBUF. 

If we are doing a .CSISPC* zero user's file spec block. 

DOING . CSISPC? 
BR IF NOT 

GET ADDRESS OF FILE SPEC BUFFER 
MAKE ADDRESS EVEN 
MAKE SURE ADDRESS IS LEGAL 



;FILE SPEC IS 39 WORDS LONG 
i ZERO USER'S AREA 



The following registers are set up for the actual command scan: 
Rl = Pointer into CSIBUF. 
R4 - File number we are working on. 
R5 = Pointer into user's device spec buffer (.CSISPC only). 

If command line contains an equal sign then we have output file specs. 
Otherwise first file is an input file <# 3). 

4$: CLRB CSIEGL ; HAVEN'T SEEN EQUAL SIGN YET 

NO SWITCHES YET 
SET DEFAULT DEVICE NAME 
POINT TO COMMAND STRING 

2*: MOVB (R2)+, RO ; SCAN ACROSS COMMAND LOOKING FOR EQUAL SIGN 

BR IF END OF COMMAND HIT — NO EQUAL SIGN FOUND 

DOES COMMAND CONTAIN AN EQUAL SIGN? 

BR IF YES 

LESS-THAN SIGN IS EQUIVALENT TO EQUAL-SIGN 

; Command line contains an equal sign. Output files come first. 
5*: CLR R4 > FIRST FILE # IS 

BR CSICHR 
> Command line does not contain an equal sign. Output files are omitted. 



CLRB 


CSIEQL ; 


CLRB 


SWTCNT i 


MOV 


R50DK, CSIDEV i 


MOV 


#CSIBUF>R1 i 


MOV 


Rl, R2 


MOVB 


(R2)+,R0 ; 


BEQ 


3* i 


CMPB 


R0.#'= i 


BEQ 


5* ; 


CMPB 


RO, #'< ; 


BNE 


2* 



3$: 



MOV 


#3, R4 


ADD 


#36, R5 


INCB 


CSIEQL 



FIRST FILE IS # 3 

POINT TO 1ST INPUT FILE SPEC AREA 

SAY WE ARE BEYOND EQUAL SIGN 



TSEM3 


TSX-Plus EMI Ov 


v r I a y 


MACRO V 


. CSISPC 

i 


S< . CSIGEN 






2 
3 
4 


003672 


004/ j/ 


004660 ■' 




5 


003676 


105700 






6 


003700 


001002 






7 


003702 


000137 


004504' 




8 


003706 


120027 


000075 




9 


003712 


001403 






10 


003714 


120027 


000074 




11 
12 
13 


003720 


001023 






003722 


105737 


0000000 




14 


003726 


00 1 402 






15 


003730 


000137 


004520' 




16 


003734 


105237 


OOOOOOG 




17 


003740 


1 2704 


000003 




IS 


003744 


013705 


0000 100 




19 


003750 


042705 


000001 




20 


003754 


062705 


000036 




21 


003760 


013737 


000002 ' 


OOOOOOG 


22 
23 
24 


003766 


000741 






003770 


120027 


000054 




25 


003774 


001002 






26 
27 
28 


003776 


000137 


004460 ' 




004002 


120027 


000057 




29 


004006 


001002 






30 


004010 


000137 


004336 ' 




31 










32 










33 










34 


004014 


005301 






35 


004016 


020427 


000010 




36 


004022 


101006 






37 


004024 


105737 


OOOOOOG 




38 


004030 


001005 






39 


004032 


020427 


000003 




40 


004036 


103402 






41 
42 
43 


004040 


000137 


004520' 




004044 


010400 






44 


004046 


020027 


000002 




45 


004052 


1 1 402 






46 


004054 


005000 






47 


004056 


000402 






48 


004060 


005200 






49 


004062 


006300 






50 


004064 


063700 


000006G 




51 


004070 


004737 


OOOOOOG 




52 


004074 


106510 






53 


004076 


012600 






54 










55 


004100 


004737 


004726 ' 




56 


004104 


103002 






57 


004106 


000137 


004520 ' 
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Begin processing the next file specification. 



USACHK: 

CSICHI: 



7*: 



17*: 



11*: 



See 



1*: 



bee 



14*: 



CALL CSIGET 

TSTB RO 

BNE 7* 

JMP CSIFIN 

CMPB RO, #' = 

BEQ 17* 

CMPB RO, #'< 

BNE 1* 
means start of input 

TSTB CSIEQL 

BEQ 11* 

JMP CSIILL 

INCB CSIEQL 

MOV #3, R4 

MOV EMTBLK+10, R5 

BIC #1,R5 

ADD #36, R5 

MOV R50DK, CSl'DEV 

BR CSICHR 
if we have a null file 

CMPB RO, #', 

BNE 14* 

JMP CSINXT 
if we have a leading 

CMPB RO, #'/ 

BNE 15* 

JMP CSISWT 



GET NEXT CHAR FROM COMMAND LINE 

REACHED END OF COMMAND LINE? 

BR IF NOT 

FINISH OFF COMMAND 

REACHED EQUAL SIGN? 

BR IF YES 

LESS-THAN SIGN IS EQUIVALENT TO EQUAL SIGN 

BR IF NOT 
file specs. 

; HAVE WE SEEN AN EQUAL SIGN BEFORE? 
j BR IF NOT 

■> ERROR IF 2 EQUAL SIGNS 
i REMEMBER EQUAL SIGN SEEN 
;NEXT FILE # IS 3 

; GET ADDRESS OF USER'S FILE SPEC AREA 
jMAKE even 

> POINT TO SPACE FOR 1ST INPUT FILE SPEC 
i RESET DEFAULT DEVICE TO "DK: " 
; CONTINUE SCAN 
spec. 

i NULL FILE SPEC? 
; BR IF NOT 

i ADVANCE TO NEXT FILE 
switch specification. 

; START OF SWITCH SPECIFICATION? 

; BR IF NOT 

; GO PROCESS THE SWITCH 



Accrue a file specification. 



13*: 
j Get 
2*: 



15*: DEC 
CMP 
BHI 
TSTB 
BNE 
CMP 
BLO 
JMP 
the d e 
MOV 
CMP 
BL.OS 
CLR 
BR 

12*: I NC 
ASL 

16*: ADD 
CALL 
MFPD 
MOV 

i Parse the 
CALL 
BCC 
JMP 



Rl 

R4, #8. 

13* 

CSIEQL 

2* 

R4, #3 

2* 

CSIILL 
fault extension 

R4, RO 

RO, #2 

12* 

RO 

16* 

RO 

RO 

EMTBLK+6, RO 

VALADW 

<R0) 

(SP)+, RO 
device-file spec: 

ACRFIL 

19* 

CSIILL 



POINT TO 1ST CHARACTER OF NAME 
HAVE WE ALREADY GOTTEN MAX # FILES ALLOWED? 
BR IF TOO MANY 

ARE WE GETTING INPUT OR OUTPUT FILES? 
BR IF INPUT FILES 
ONLY ALLOW 3 OUTPUT FILES 
BR IF OK 
ERROR 
for the file name. 
GET FILE NUMBER 
INPUT OR OUTPUT FILE? 
BR IF OUTPUT FILE 
USE EXTENSION FOR ALL INPUT FILES 

CONVERT FILE # TO INDEX INTO EXTENSION TABLE 

2 BYTES PER ENTRY 

ADD BASE OF DEFAULT EXT TABLE 

MAKE SURE ADDRESS IS LEGAL 

GET DEFAULT EXTENSION FROM USER'S TABLE 

GET DEFAULT EXTENSION 
i i- ication. 

; ACCRUE THE FILE SPECIFICATION 
J BR IF NO ERROR 
i INVALID SPEC 



TSEM3 


TSX-Plus EMT 0v 


(.< r 1 a y 


. CSISPC 


& . CSIGEN 




58 








59 


004112 


020427 


000003 


60 


004116 


103037 




61 


OU41i=iU 






62 


004132 


103020 




63 


004134 


105737 


0000000 


64 


004140 


001571 




65 








66 








67 








68 


004142 


01270O 


000004 


69 


004146 


020427 


000003 


70 


004152 


103001 




71 


004154 


005200 




72 


004156 


012702 


0000000 


73 


004162 


010503 




74 


004164 


012246 




75 


004166 


106623 




76 


004170 


077003 




77 


004172 


000457 




78 








79 








80 








81 


004174 


105737 


OOOOOOG 


82 


004200 


00 1 360 




83 


004202 


005737 


0000020 


84 


004206 


001003 




85 


004210 


005737 


OOOOOOG 


86 


004214 


002541 




87 








88 








89 








90 


004216 


105737 


OOOOOOG 


91 


004222 


001347 




92 


004224 


020427 


000003 


93 


004230 


103025 




94 








95 


004232 






96 


004262 


103023 




97 


004264 


123727 


OOOOOOG 


98 


004272 


00 1 002 




99 


004274 


000137 


004532' 


100 


004300 


000137 


004540' 


101 








102 


004304 






103 


004326 


103001 




104 


004330 


000506 




105 


004332 


000137 


003672 ' 
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Require a file name with file structured output devices. 



19*: CMP R4, #3 
BHIS 4* 

. DSTATUS #C5IARE, #CSIFIL 
BCC 9* 
TSTB SPCFLG 
BEQ ILLDEV 



IS THIS AN OUTPUT FILE SPEC? 

BR IF NOT 

GET INFO ABOUT THE DEVICE 

BR IF VALID DEVICE 

IS THIS . CSISPC OR . CSIGEN? 

BR IF . CSIGEN WITH INVALID DEVICE 



.CSISPC: Move file spec to user's area. 



21*: MOV #4, RO 

CMP R4, #3 

BHIS 5* 

INC RO 

5*: MOV #CSIFIL.. R2 

MOV R5, R3 

6$: MOV <R2)+, -<SP> 

MTPD <R3)+ 

SOB RO, 6* 

BR 10* 



ASSUME 4 WORDS TO MOVE 

INPUT OR OUTPUT FILE SPEC? 

BR IF INPUT 

MOVE 5 WORDS FOR OUTPUT FILE SPECS 

POINT TO BUFFER WITH FILE SPEC WE GOT 

GET POINTER TO FILE SPEC AREA 

MOVE A WORD FROM FILE SPEC TO USER'S AREA 

; MOVE ALL OF SPEC 



.CSIGEN: See if file specified or device non-file structured. 



9*: 



TSTB 

BNE 

TST 

BNE 
TST 
BL.T 



SPCFLG 

21* 

CSIFIL+2 

4* 

CSIARE 

CSIILL 



. CSISPC? 

IF SO, DON'T REQUIRE FILE NAME 

WAS A FILE NAME SPECIFIED? 

BR IF YES 

IS DEVICE FILE STRUCTURED? 

ERROR IF YES 



CSIGEN: Do .lookup or .enter for file. 



4*: 



TSTB SPCFLG 
BNE 21* 
CMP R4, #3 
BHIS 8* 
Output: Enter the file. 



CHECK FOR . CSISPC OR . CSIGEN 

BR IF . CSISPC 

INPUT OR OUTPUT FILE? 

BR IF INPUT 



. ENTER 

BCC 

CMPB 

BNE 

JMP 

JMP 



#CSIARE, R4, #CSIFIL, CSIFIL+10 



10* 

@#ERRLOC, #3 

18* 

CSIPRO 
18*: JMP CSIFUL 
; Input: Lookup the file. 
8*: .LOOKUP #CSIARE, R4, #CSIFIL 



BR IF ENTER WAS SUCCESSFUL 
PROTECTED FILE CONFLICT? 
BR IF NOT 

RETURN ERROR CODE 2 
RETURN ERROR CODE 3 



10*: 



BCC 
BR 

JMP 



10* 

CSINOF 

CSICHR 



BR IF OK 

NO FILE FOUND 

CONTINUE SCAN 



TSEM3 


TSX-Plus EMT Ov 


erlay 


. CSISPC 

i 


& . C SI GEN 




2 
3 
4 


UUtJJt) 


uu4/ 37 


004660 * 


5 


004342 


010003 




6 


004344 


001465 




7 


004346 


042703 


177400 


8 


004352 


010400 




9 


004354 


000300 




10 


004356 


050003 




11 








12 


004360 


004737 


004660 ' 


13 


004364 


1 20027 


000072 


14 


004370 


001023 




15 








16 








17 








18 


004372 


052703 


100000 


19 


004376 


004737 


005324 ' 


20 
21 
22 


004402 


103470 




004404 


004737 


005704 ' 


23 


004410 


105237 


OOOOOOG 


24 








25 


004414 


010300 




26 
27 
28 


004416 


004737 


005704 ' 


004422 


004737 


004660 ' 


29 


004426 


120027 


000072 


30 


004432 


001761 




31 


004434 


000137 


003676' 


32 








33 








34 








35 


004440 


005301 




36 


004442 


010300 




37 


004444 


004737 


005704 ' 


38 


004450 


105237 


OOOOOOG 


39 


004454 


000137 


003672 ' 


40 








41 








42 








43 


004460 


062705 


000010 


44 


004464 


020427 


000003 


45 


004470 


103002 




46 


004472 


062705 


000002 


47 


004476 


005204 




48 


004500 


000137 


003672 ' 


49 








50 








51 








52 








53 


004504 


113700 


OOOOOOG 


54 


004510 


004737 


005704 ' 


55 


004514 


000137 


OOOOOOG 
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Process a switch specification. 



UblbWT 



3*: 



CALL 

MOV 

BEQ 

BIC 

MOV 

SWAB 

BIS 



CSIGET 

RO, R3 

CSIILL 

#--C<377>, R3 

R4, RO 

RO 

RO, R3 



GET NEXT CHAR 

GET SWITCH CHARACTER 

BR IF NO CHAR FOLLOWS "/" 

LEAVE ONLY S-BITS 

GET FILE # 

PUT IN LEFT BYTE 

COMBINE FILE # WITH SWITCH CHARACTER 



See if switch has an associated value. 



CALL 
CMPB 
BNE 



CSIGET 
RO, #': 
2* 



GET NEXT CHAR 

IS THERE AN ASSOCIATED VALUE? 

BR IF NOT 



Switch has a value — Get it and push onto user's stack. 



1$: 



SET VALUE FLAG 

GET VALUE 

BR IF INVALID 



BIS #100000, R3 
CALL SWVAL 
BCS BADVAL 
Push switch value onto user's stack. 

CALL UPUSH > PUSH ONTO USER 'S STACK 

INCB SWTCNT > COUNT # SWITCHES ACCRUED 

Push switch control word on user's stack. 

MOV R3, RO ; GET CONTROL WORD 

CALL UPUSH ; PUSH ONTO USER 'S STACK 

See if there are additional values for this switch. 

GET NEXT CHAR 
IS THERE ANOTHER VALUE 
BR IF YES 
CONTINUE SCAN 



CALL 


CSIGET 


CMPB 


RO, #': 


BEG 


1* 


JMP 


CSICH1 



No switch value 



2*: 



DEC 


Rl 


MOV 


R3, RO 


CALL 


UPUSH 


INCB 


SWTCNT 


JMP 


CSICHR 



i Finished a 


file spe 


CSINXT: ADD 


#10, R5 


CMP 


R4, #3 


BHIS 


1* 


ADD 


#2, R5 


1*: INC 


R4 


JMP 


CSICHR 



BACK UP CHARACTER POINTER 
GET SWITCH CONTROL WORD 
PUSH ONTO USER'S STACK 
COUNT # OF SWITCHES 
CONTINUE SCAN 



POINT TO NEXT FILE SPEC AREA 
DOING AN INPUT OR OUTPUT FILE? 
BR IF AN INPUT FILE- 
SKIP 2 MORE BYTES 
ADVANCE FILE # 
CONTINUE SCAN 



Finished scanning command line. 

Return number of switches on top of user's stack. 



CSIFIN: MOVB 
CALL 
JMP 



SWTCNT, RO 
UPUSH 
EMT X IT 



GET # SWITCHES ACCRUED 
PUSH ONTO USER'S STACK 
FINISHED 
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CSISPC & . CSIGEN 
1 




3 

Si 

— r 

5 004520 


005003 




6 004522 

7 

8 004524 


000424 




012703 


000001 


9 004530 


000421 




10 






11 004532 


012703 


000002 


12 004536 


000416 




13 






14 004540 


012703 


000003 


15 004544 


000413 




16 






17 004546 


012703 


000004 


18 004552 


000410 




19 






20 004554 


00 5003 




21 004556 


012702 


000005 


22 004562 


000405 




23 






24 004564 


005003 




25 004566 


012702 


000006 


26 004572 


000401 




27 






28 






29 






30 004574 


010302 




31 






32 004576 


013746 


OOOOOOG 


33 004602 


106606 




34 






35 






36 004604 


005737 


000004C 


37 004610 


001020 




38 004612 






39 






40 004620 


105737 


OOOOOOG 


41 004624 


001010 




42 004626 


005704 




43 004630 


001406 




44 004632 






45 004642 


005304 




46 004644 


002372 




47 004646 


000137 


003330 ' 


48 






49 004652 


010300 




50 004654 


000137 


OOOOOOG 



; ERROR CODE 







CS!l errors. 



11. i e gal command 
CSIILL: CLR R3 

BR CSIERR 
j Illegal device 
ILLDEV: MOV #1,R3 

BR CSIERR 
; Enter failed — Protected file conflict. 
CSIPRO: MOV #2, R3 ; ERROR CODE = 2 

BR CSIERR 
> Enter failed — Insufficient disk space. 



i ERROR CODE = 1 



CSIFUL: MOV #3, R3 

BR CSIERR 
i Lookup failed 
CSINOF: MOV #4, R3 

BR CSIERR 
> Invalid switch 
BADSWT: CLR R3 

MOV #5, R2 

BR CSIER1 
i Invalid switch value 
BADVAL: CLR R3 

MOV #6, R2 

BR CSIER1 

Common CSI error processing. 

CSIERR: MOV R3, R2 ; SET ERROR MESSAGE NUMBER 

J Restore initial user stack pointer 

CSIER1: MOV CSIUSP, ~-<SP> ; Get initial stack pointer for user 

MTPD SP ; Reset for user 

; If input is coming from the terminal, print error message and 
.: retry command. 



ERROR CODE = 3 



> ERROR CODE » 4 



i ERROR CODE = 

; SET ERROR MESSAGE NUMBER 



; ERROR CODE = 

; ERROR MESSAGE NUMBER 



TST 
BNE 
OCALL 



EMTBLK+4 

3* 

CSIMSG 



INPUT FROM THE TERMINAL? 

BR IF NOT 

PRINT ERROR MESSAGE 



If this is . CSIGEN, purge channels we opened. 



TSTB SPCFLG i CSISPC OR CSIGEN? 

BNE 1* i BR IF CSISPC 

TST R4 ; DID WE OPEN ANY CHANNELS? 

BEG 1* ; BR IF NOT 

PURGE A CHANNEL 

MORE TO DO? 

BR IF YES 

GO BACK AND RETRY COMMAND 
» Input is coming from a user supplied string. Return an error code 
3*: MOV R3, RO ; GET ERROR CODE 

JMP SETERR i ABORT EMT 



2*: 



1*: 



. PURGE R4 

DEC R4 

BGE 2* 

JMP CSIGCL 



4 

< 
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1 








2 








3 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 


004660 


112100 




16 


004662 


001420 




17 


004664 


120027 


000040 


IS 


004670 


001773 




19 


004672 


120027 


ooooooe 


20 


004676 


001770 




21 


004700 


120027 


000141 


22 


004704 


10340S 




23 


004706 


120027 


000172 


24 


004712 


101002 




25 


004714 


162700 


000040 


26 


004720 


042700 


177600 


27 


004724 


000207 





SBTTL #*•»• Subroutines *«•# 
.SBTTL CSIGET — Get next character from CS1 command line 

CSIWki is called to pet the next non-blank character from the CSI 
command line. Lower case letters are converted to upper case. 

Inputs: 
R.t « Pointer to character to be gotten 



Outputs: 
RO = Character acquired 
Rl = Pointer past charac 
z-flag set if character 



ter gottenn 
= null 



CSIGET: 



1*: 
2$: 



MOVB 

BEQ 

CMPB 

BEQ 

CMPB 

BEQ 

CMPB 

BLO 

CMPB 

BHI 

SUB 

BIC 

RETURN 



<R1)+, RO 

2* 

RO, #' 

CSIGET 

RO, #TAB 

CSIGET 

RO, #141 

1* 

RO, #172 

1* 

#40, RO 

# A C<177>, RO 



GET NEXT CHARACTER 

BR IF HIT STRING DELIMITER 

IS CHAR A SPACE? 

SKIP OVER SPACES 

IS CHARACTER A TAB? 

SKIP TABS 

LOWER CASE A? 

BR IF NOT LOWER CASE LETTER 

LOWER CASE Z? 

BR IF NOT LOWER CASE LETTER 

CONVERT LOWER CASE TO UPPER CASE 

RETURN ONLY 7-BIT CHAR 
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. SBTTL ACRFIL — Accrue a file specification 



3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








IS 








16 








17 


004726 


010446 




IS 


004730 


010546 




19 








20 








21 








22 


004732 


012705 


0000000 


23 


004736 


013725 


0000000 


24 


004742 


005025 




25 


004744 


020527 


0000 100 


26 


004750 


101774 




27 


004752 


010037 


0000060 


28 








29 








30 








31 


004756 


004737 


004660 ' 


32 


004762 


005301 




33 


004764 


120027 


000056 


34 


004770 


001403 




35 


004772 


004737 


005222 ' 


36 


004776 


103453 




37 








38 








39 








40 


005000 


004737 


005136' 


41 


005004 


12112/ 


000072 


42 


005010 


001012 




43 


005012 


005201 




44 


005014 


010437 


OOOOOOG 


45 


005020 


00 1 442 




46 


005022 


010437 


OOOOOOG 


47 


005026 


005705 




48 


005030 


00 1 036 




49 








50 








51 








52 


005032 


004737 


005136' 


53 


005036 


010437 


0000020 


54 


005042 


010537 


0000040 


55 


005046 


121127 


000056 


56 


005052 


001010 




57 


005054 


005201 





ACRFIL is called to parse a file specification of the form 
dev: file. extCsizeU. 

Inputs: 
RO = Default extension 
Rl = Pointer to start of file spec 
CSIDEV = Default device (RadSO) 

Outputs: 
Rl ~ Pointer to character past end of file spec 
CS1FIL = 5 word buffer containing RadSO file spec accrued 
CSIDEV is updated if a device is explicitly specified 
C-flag is set on return if the file spec is invalid 



ACRFIL: MOV 

MOV 



R4, -<SP> 
R5, -<SP> 



Initialize CSIFIL buffer. 



1$: 



MOV 


#CSIFIL, R5 


MOV 


CSIDEV, (R5)+ 


CLR 


<R5> + 


CMP 


R5, #CSIFILH3. 


BLOS 


1* 


MOV 


RO, CSIFIL+6 



POINT TO RESULT BUFFER 
PUT IN DEFAULT DEVICE 
CLEAR REST OF BUFFER 



CALL 


CSIGET 


DEC 


Rl 


CMPB 


RO, #'. 


BEQ 


6* 


CALL 


R50CHR 


BCS 


10* 



SET DEFAULT EXTENSION 

First character of file spec must be valid RadSO character or period. 

GET 1ST CHAR OF FILE SPEC 

BACKUP CHAR POINTER SO WE WILL GET CHAR AGAIN 

PERIOD? 

BR IF YES 

VALID RADSO CHARACTER? 

BR IF INVALID 

Get first field which will be device or file name. 

6*: CALL GTRD50 ; ACCRUE RADSO VALUE 

IS THIS A DEVICE OR FILE NAME? 

BR IF FILE NAME 

POINT PAST COLON 

SET DEVICE NAME 

BR IF NULL DEVICE NAME 

SET NEW DEFAULT DEVICE NAME 

WAS DEVICE NAME LONGER THAN 3 CHARS? 

ERROR IF YES 



I 

I 



CALL 


GTRD50 


CMPB 


<R1), #': 


BNE 


2* 


INC 


Rl 


MOV 


R4, CSIFIL 


BEG 


10* 


MOV 


R4, CSIDEV 


TST 


R5 


BNE 


10$ 



Accrue the file name. 



?*: 



CALL 


GTRD50 


MOV 


R4, CSIFIL+2 


MOV 


R5, CSIFIL+4 


CMPB 


( R 1 > , # ' . 


BNE 


3* 


I NO 


Rl 



ACCRUE NEXT RAD50 FIELD 
FIRST 3 CHARS OF FILE NAME 
SECOND 3 CHARS OF FILE NAME 
IS AN EXTENSION SPECIFIED? 
BR IF NOT 
POINT PAST PERIOD 
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58 
59 
60 
£)J. 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 



Accrue the extension. 



005062 
005066 
005072 



005074 
005100 

005102 

005104 
005110 
005114 
005120 



005124 



005126 
005130 
005132 
005134 



010437 
121127 
001415 



121127 
00 1 1 
005201 

004737 
010037 
122127 
001002 



000241 
000401 



00026.1. 
012605 
012604 
000207 



UU3iJ£3 • 

0000060 
000056 



000133 



005476' 
0000100 
000135 



CALL 


GTRD50 


MOV 


R4, CSIFIL+6 


CMPB 


(Rl>, #'. 


BEG 


10* 



; ACCRUE THE EXTENSION FIELD 
; STORE THE EXTENSION 
;Was another period specified? 
; Br if yes — Error 



See if file size was specified. 



3*: CMPB <R1),#'C 

BNE 4* 

INC Rl 
i Get the file size 

CALL ACRDEC 

MOV RO, CSIFIL+8. 

CMPB <R1 >+,#'} 

BNE 10* 

Successful return 



4*: CLC 
BR 

Error return 



5* 



10*: 
5*: 



SEC 
MOV 
MOV 
RETURN 



(SP)+, R5 
(SP)+, R4 



> WAS FILE SIZE SPECIFIED? 

; BR IF NOT 

i POINT PAST OPEN BRACKET 

ACCRUE A DECIMAL VALUE 
STORE FILE SIZE 
GOT PROPER DELIMITER? 
ERROR IF NOT 



; SIGNAL GOOD RETURN 



; SIGNAL ERROR RETURN 
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1 

2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


005136 


012746 


022000 


15 


005142 


005005 




16 








17 


005144 


004737 


004660 ' 


18 


005150 


004737 


005222' 


19 


005154 


103001 




20 


005i56 


005301 




21 








22 








23 


005160 


070527 


000050 


24 


005164 


060005 




25 


005166 


006316 




26 


005170 


103365 




27 


005172 


005716 




28 


005174 


00 1 402 




29 


005176 


010504 




30 


005200 


000760 




31 








32 


005202 


004737 


004660 ' 


33 


005206 


004737 


005222 ' 


34 


005212 


103373 




35 


005214 


005301 




36 


005216 


005726 




37 


005220 


000207 





. SBTTL GTRD50 



Accrue a RAD50 name 



GTRD50 is called to accrue a name and return it as a Rad50 value. 

Inputs: 
Rl ™ Pointer to start of name 
SPCFLG: !-=> "**' and "X" legal in name; 0==> not legal. 

Outputs 
Rl = Pointer left pointing to name delimiter 
R4 = First 3 characters of name in Rad50 
R5 = Second 3 characters of name 



GTRD50: MOV 
4*: CLR 
; Get next ch 
1*: CALL 
CALL 
BCC 
DEC 
; We got a va 
i Add to accu 
2$: MUL 
ADD 
ASL 
BCC 
TST 
BEG! 
MOV 
BR 
> Skip any ch 
3*: CALL 
CALL 
BCC 
DEC 
TST 
RETURN 



R5 
aracter and 

CSIGET 

R50CHR 

2* 

Rl 
lid Rad50 c 
mulated val 

#50, R5 

RG, R5 

<SP> 

1* 

(SP) 

3* 

R5, R4 

4* 
ars in name 

CSIGET 

R50CHR 

3$ 

Rl 

(SP) + 



5P) i COUNTER TO CONTROL # CHARS ACQUIRED 

; ACCRUE VALUE IN R5 
see if it is valid for Rad50 name. 

GET NEXT CHARACTER 

IS THIS A VALID RAD50 CHAR? 

BR IF VALID 

BACK UP CHAR POINTER TO DELIMITER 
h aracter. 
ue. 

MULTIPLY BY 50 

ADD IN NEW CHARACTER 

HAVE WE GOTTEN 3 CHARS YET? 

BR IF NOT 

HAVE WE GOTTEN 6 CHARS? 

BR IF YES 

RETURN 1ST 3 CHARS IN R4 

GO GET NEXT 3 CHARS 
after sixth. 

GET NEXT CHAR 

IS THIS A DELIMITER? 

SKIP IT IF NOT 

POINT BACK TO DELIMITER 

REMOVE COUNT FROM STACK 
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3 








4 








5 








6 








7 








S 








9 








10 








11 








12 








13 








14 


005222 


010146 




15 


005224 


012701 


005302 


16 








17 


005230 


120011 




18 


005232 


103413 




19 


005234 


120061 


000001 


20 


005240 


101010 




21 


005242 


122121 




22 


005244 


001003 




23 


005246 


105737 


000000 


24 


005252 


00140/ 




25 








26 


005254 


061100 




27 


005256 


000241 




28 


005260 


000406 




29 








30 


005262 


062701 


000004 


31 


005266 


105711 




32 


005270 


001357 




33 








34 


005272 


005000 




35 


005274 


000261 




36 








37 


005276 


012601 




38 


005300 


000207 




39 








40 








41 








42 








43 


005302 


10.1 


132 


44 


005304 


177700 




45 


005306 


060 


071 


46 


005310 


1.77756 




47 


005312 


052 


052 


48 


005314 


177763 




49 


005316 


045 


045 


50 


005320 


177767 




51 


005322 


000000 





. SBTTL R50CHR — Convert ascii character to Rad50 value 

R50CHR is called to convert an ascii character to its equivalent 
Rati 50 value. 

Inputs 
RO - Ascii character 
SPCFLG: l--~> allow "*" ant) "7."; 0==> do not allow # and V. 

Outputs 
RO = RadSO value of character 
C--flag set if character is not a valid RadSO character (value returned = 0) 

R50CHR: MOV R1,-<SP> 

MOV #R50RNG, Rl ; POINT TO CONVERSION TABLE 
; Search for ascii char in our conversion table 



1*: 



CMPB 


RO, (Rl ) 


BLO 


2* 


CMPB 


RO, 1(R1> 


BHI 


2* 


CMPB 


(Rl)+, (Rl) * 


BNE 


3* 


TSTB 


SPCFLG 


BEQ 


9* 



■> We have a valid character. 
3*: ADD (R1),R0 

CLC 

BR 10* 
i Try next range in table. 
2*: ADD #4, Rl 

TSTB (Rl) 

BNE 1* 
; Invalid character 
9*: CLR RO 

SEC 
; Return 
10*: MOV 

RETURN 



i COMPARE WITH LOW VALUE IN RANGE 

;BR IF TOO SMALL FOR RANGE 

; COMPARE WITH HIGH VALUE IN RANGE 

; BR IF TOO LARGE FOR RANGE 

i IS THIS A SPECIAL CHAR (# OR Jt>? 

> BR IF NOT 

; SHOULD WE ALLOW SPECIAL CHARS? 

> BR IF NOT 

Convert ascii value to rad50. 
i CONVERT ASCII VALUE TO RADSO VALUE 
> SIGNAL GOOD RETURN 
; GO RETURN 

; POINT TO NEXT ENTRY IN CONVERSION TABLE 
;HAVE WE HIT END OF TABLE? 
i BR IF NOT 

; RETURN AS VALUE 
; SIGNAL ERROR 



(SP)+, Rl 



RadSO conversion table. 

Values: Low-value., high-value, Rad50-Asc i i-value 



A-2 
0-9 



52 



50RNG: . BYTE 


'A, 'Z 


. WORD 


l-'A 


. BYTE 


•'0, '9 


. WORD 


36- '0 


. BYTE 


•'#, '■* 


. WORD 


-15 


. BYTE 


"A, '*/. 


. WORD 


-11 


. WORD 





. EVEN 





END OF TABLE MARKER 
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SWVAL — - Accrue C S I switch va 3 
1 


2 

3 






5 






6 






7 






8 






9 






10 






11 






12 






13 






14 005324 


010546 




15 005326 


010105 




16 






17 






18 






19 005330 


004737 


004660 ' 


20 005334 


120027 


000101 


21 005340 


103414 




22 005342 


120027 


000132 


23 005346 


101050 




24 






25 






26 






27 005350 


010501 




28 005352 


010446 




29 005354 


004737 


005136' 


30 005360 


010400 




31 005362 


012604 




32 005364 


005705 




33 005366 


001436 




34 005370 


000437 




35 






36 






37 






38 






39 005372 


120027 


000055 


40 005376 


001406 




41 005400 


lftUOft/ 


000060 


42 005404 


103431 




43 005406 


120027 


000071 


44 005412 


101026 




45 






46 






47 






48 






49 005414 


004737 


004660 ' 


50 005420 


120027 


000056 


51 005424 


00 1 4 1 3 




52 005426 


120027 


000060 


53 005432 


103403 




54 005434 


120027 


000071 


55 005440 


101765 




56 






57 
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. SBTTL SWVAL 



Accrue CSI switch value 



SWVAL is called to accrue a value associated with a CSI switch. 
The value may be specified as RadSO alphanumeric* decimal or octal. 

Input s : 
Rl •-= Pointer to start of value. 

Outputs: 
RO - Value accrued. 
Rl = Pointer to value delimiter. 
C— flag set on return if an error detected. 



SWVAL : 



MOV 
MOV 



R5, ~<SP> 
Rl, R5 



i SAVE POINTER TO START OF VALUE 
Determine what type of value this is. 

GET FIRST CHAR OF VALUE 

ALPHABETIC? 

BR IF NOT 

i BR IF NOT ALPHABETIC 



CALL 


CSIGET 


CMPB 


RO, #'A 


BLO 


1* 


CMPB 


RO, #'Z 


BHI 


5* 



Rati 50 value. 



MOV 


R5, Rl 


MOV 


R4, -<SP) 


CALL 


GTRD50 


MOV 


R4, RO 


MOV 


<SP)+, R4 


TST 


R5 


BEQ 


10$ 


BR 


5* 



i GET BACK POINTER TO START OF VALUE 

; ACCRUE A RADSO VALUE 
;GET 1ST 3 CHARS OF VALUE 

;2ND 3 CHARS SHOULD BE NULL 

J BR IF OK 

* VALUE TOO LONG 



Value is not RadSO. 
Make sure it is numeric. 



1*: 



; ALLOW LEADING MINUS SIGN 

; IS VALUE NUMERIC? 
i BR IF NOT 

;BR IF NOT NUMERIC 



V alius is numeric. 

See if a decimal point was specified with value. 



CMPB 


RO, #'- 


BEQ 


2* 


CMPB 


RO, #'0 


BLO 


5* 


CMPB 


RO, #'9 


BHI 


5* 



2*: 



CALL 


CSI GET 


CMPB 


RO, #'. 


BEQ 


4* 


CMPB 


RO, #"0 


BLO 


3* 


CMPB 


RO, #'9 


BIOS 


2* 



GET NEXT CHAR IN VALUE 

DECIMAL POINT? 

BR IF YES 

ARE WE STILL PASSING DIGITS? 

BR IF NOT 

; KEEP LOOKING FOR DEC PT 



Octal value. 



TSEM3 


TSX-Plus EMT Overlay 


SWVAL - 


— Accrue CSI switch va 1 


58 








59 


005442 


0.1.050.1. 




60 


005444 


004737 


005572' 


6i 


005450 


103407 




62 


005452 


000404 




63 








64 








65 








66 


005454 


010501 




67 


005456 


004737 


005476' 


68 


005462 


005201 




69 








70 








71 








72 


005464 


000241 




73 


005466 


000401 




74 








75 








76 








77 


005470 


000261 




78 








79 








80 








81 


005472 


012605 




82 


005474 


000207 
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3* : 



MOV 


R5, Rl 


CALL 


ACROCT 


BOS 


5* 


BR 


10* 



Decimal value. 



4*: 



MOV 


R5, Rl 


CALL 


ACRDEC 


INC 


Rl 



Successful finish 



10$: 



CLC 
BR 



11* 



; Error 

i 

5*: SEC 
i Return 



11*: 



MOV 
RETURN 



<SP>+, R5 



GET POINTER TO START OF VALUE 
ACCRUE AN OCTAL VALUE 
BR IF INVALID 



GET POINTER TO START OF VALUE 
ACCRUE A DECIMAL VALUE 
POINT PAST DECIMAL POINT 



i SIGNAL GOOD RETURN 



i SIGNAL ERROR ON RETURN 
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2 








3 








4 








5 








6 
7 








8 








9 








10 








11 








12 


005476 


010346 




13 


005500 


010446 




14 


005502 


005003 




15 


005504 


005004 




16 


005506 


004737 


004660 ' 


17 


005512 


120027 


000055 


18 


005516 


001003 




19 


005520 


005204 




20 


005522 


004737 


004660' 


21 


005526 


120027 


000071 


22 


005532 


1 1 007 




23 


005534 


162700 


000060 


24 


005540 


002404 




25 


005542 


070327 


000012 


26 


005546 


060003 




27 


005550 


000764 




28 


005552 


005301 




29 


005554 


010300 




30 


005556 


005704 




31 


005560 


001401 




32 


005562 


005400 




33 


005564 


012604 




34 


005566 


012603 




35 


005570 


000207 





. S'BTTL ACRDEC - — Accrue a decimal value 
ACRDEC is called to accrue a decimal character string. 



Inputs : 
R.l = Pointer to start 



of strinq. 



Outputs: 
RO - Value accrued. 
Rl ■» Pointer to delimiter hit. 



ACRDEC: 



115: 

3$: 



2$: 



4*: 



MOV 

MOV 

CLR 

CLR 

CALL 

CMPB 

BME 

INC 

CALL 

CMPB 

BHI 

SUB 

BLT 

MUL 

ADD 

BR 

DEC 

MOV 

TST 

BEQ 

MEG 

MOV 

MOV 

RETURN 



R3. -<SP) 

R4, -<SP> 

R3 

R4 

CSIGET 

RO, #'- 

3$ 

R4 

CSIGET 

RO, #'9 

2* 

#'0, RO 

2* 

#10. ,R3 

RO, R3 

1* 

Rl 

R3, RO 

R4 

4* 

RO 

<SP)+, R4 

<SP)+, R3 



FORM VALUE IN R3 

SET NON-NEGATIVE FLAG 

GET 1ST CHARACTER OF VALUE STRING 

LEADING MINUS SIGN? 

BR IF NOT 

SET NEGATIVE-FLAG 

GET NEXT CHARACTER 

IS THIS A DECIMAL DIGIT? 

BR IF NOT 

BR IF NOT DIGIT 

MUL PREVIOUS VALUE BY 10. 

ADD IN NEW DIGIT 

GO GET NEXT DIGIT 

POINT TO DELIMITER 

RETURN RESULT IN RO 

IS VALUE TO BE NEGATED? 

BR IF NOT 

MAKE IT NEGATIVE 



TSEM3 


TSX-Plu 


5 EMT Ov 


er lay 


ACROCT - 


— Accrue an octal value 


1 
2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








1 *~i 








13 


005572 


010346 




14 


005574 


010446 




15 


005576 


005003 




16 


005600 


005004 




17 


005602 


004737 


004660' 


18 


005606 


120027 


000055 


19 


005612 


001003 




20 


005614 


005204 




21 


005616 


004737 


004660' 


22 


005622 


120027 


000071 


23 


005626 


101013 




24 


005630 


120027 


000067 


25 


005634 


101017 




26 


005636 


162700 


000060 


27 


005642 


002405 




28 


005644 


006303 




29 


005646 


006303 




30 


005650 


006303 




31 


005652 


060003 




32 


005654 


000760 




33 








34 


005656 


010300 




35 


005660 


005704 




36 


005662 


001401 




37 


005664 


005400 




38 


005666 


005301 




39 


005670 


000241 




40 


005672 


00040.1 




41 








42 


005674 


000261 




43 


005676 


012604 




44 


005700 


012603 




45 


005702 


000207 
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. SBTTL ACROCT — Accrue an octal value 

ACROCT is called to accrue an octal character string. 

Inputs: 
Rl = Pointer to start of string. 

Outputs: 
RO = Value accrued. 
R.t = Pointer to delimiter hit. 
C~flag set if error detected. 



FORM VALUE IN R3 

SET NON-NEGATIVE FLA© 

GET 1ST CHAR OF VALUE STRING 

LEADING MINUS FLAG? 

BR IF NOT 

SET NEGATIVE FLAG 

GET NEXT CHARACTER 

DIGIT? 

BR IF NOT 

OCTAL DIGIT 

BR IF INVALID OCTAL DIGIT 

DIGIT? 

BR IF NOT 

MULTIPLY PREVIOUS VALUE BY 8. 



; ADD IN NEW DIGIT 
; GO GET NEXT DIGIT 

; RETURN VALUE IN RO 

; IS VALUE TO BE NEGATED? 

i BR IF NOT 

i MAKE VALUE NEGATIVE 

; POINT TO DELIMITER 

; SIGNAL NO ERROR 



\ 



t 

4 

t 



ACROCT: 


MOV 


R3, -<SP> 




MOV 


R4, -<SP) 




CLR 


R3 




CLR 


R4 




CALL 


CSIGET 




CMPB 


RO, #'-• 




BNE 


4* 




INC 


R4 


1*: 


CALL 


CSIGET 


4*: 


CMPB 


RO, #'9 




BHI 


2* 




CMPB 


RO, #'7 




BHI 


3* 




SUB 


#'0, RO 




BLT 


2* 




ASL 


R3 




ASL 


R3 




ASL 


R3 




ADD 


RO, R3 




BR 


1* 


; Got 


valid va 


lue. 


2$: 


MOV 


R3, RO 




TST 


R4 




BEG 


6* 




NEG 


RO 


6$: 


DEC 
CLC 


Rl 




BR 


5* 


; Inva 


3 i d numb 


er 


3*: 


SEC 




5*: 


MOV 


(SP)+, R4 




MOV 


(SP)+, R3 




RETURN 





; SIGNAL ERROR ON RETURN 
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UPUSH — Push value onto user's stack 



. SBTTL UPUSH 



— Push value onto user's stack 



3 






4 






5 






6 






7 






8 






9 






10 






11 






12 


005704 


0101 4& 


13 


005706 


106506 


14 


005710 


012601 


15 


005712 


010046 


16 


005714 


106641 


17 


005716 


010146 


18 


005720 


106606 


19 


005722 


012601 


20 


005724 


000207 


21 






22 




000001 


Errors c 


letected 






UPUSH is called during CSI processing to push a value onto the 
user's stack. 



Inputs: 
RO = Value to be pushed. 

Outputs: 
Value pushed onto user's stack. 



'PUSH: 



MOV 

MFPD 

MOV 

MOV 

MTPD 

MOV 

MTPD 

MOV 

RETURN 

. END 



R 1 ; - ( SP ) 

SP 

< SP ) +, R 1 

RO, -<SP> 

~<R1) 

Ri, -<SP> 

SP 

(SP)+, Rl 



; GET USER'S SP 

; PUSH VALUE ONTO USER 'S STACK 

j STORE UPDATED STACK POINTER 



**# Assembler statistics 



Work file reads 
Work file writes 
Size of work file 
Size of core pool 
Operating system 







9919 Words < 39 Pages) 

17920 Words < 70 Pages) 

RT-J1 



Elapsed time: 00:00:33.20 

DK: TSEM3, LP: TSEM3=DK: TSEM3. MAC/C/N: SYM 
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*DILUP 


1-40 


5-25 
























4 


*INCOR 
$.T!MKMN 
*NQVLN 


1-50 
1-46 
1-44 


21-52 
14-27 
3-115 


22-41 
3-116 


3-119 


3-120 


















4 


$VNOTT 


1-35 


2-18 


























... VI 


10-35 
26-102 


23-35 
26-102 


23-35 
28-44 


23-63 


23-63 


24-12 


24 


-12 


26- 


-61 


26- 


-95 


26-95 


4 


. . . V2 


10-35 


10-35# 


23-35 


23-35 


23-35# 


Cm w5""*iJ> uf'TT 


23- 


-63 


23- 


-63 


23- 


-63# 


23-63# 






26-95 


26-95 


26~95# 


26-95# 


26-102 


26-102 


26- 


-102# 


26- 


-102# 


28- 


-44 


28-44# 




ACRDEC 


30-72 


33-67 


34-1 2# 






















i 


ACRFIL 
ACROCT 
ASKLIN 


26-55 

33-60 

1-43 


30- 1 7 if 

JD""I vJ'i'r 

24-55 
























4 


ASNTBL 
AT$*SZ 
BADEMT 


1-38 
1-40 
1-46 


7-34 

7-35 

11-23 
























< 


BADSWT 
BADVAL 
C. CSW 


28-20# 
27-20 

1-36 


28-24# 
1 0-26 
























4 


CFPNT 

CHKABT 

CHNSIZ 


1-42 
1-50 

1-52 


24-47 
18-28 
10-21 


24-48* 

19-29 


24-58* 




















4 


CORUSR 
CP*STD 
CPYCXD 


1-50 

1-47 
5-43 


3-111 
15-26 
6-16# 


18-19 


18-33 


18-44 


















i 


CPYCXT 
CPYEMT 


4-27 
9-1 1# 
1-31 


7-36 
5-16# 


7-42 


7-45 


7-51 


7-54 


7- 


-56 


7- 


-58 


7- 


-60 


8-22 


i 


CPYFIL 
CPYMIMT 
CPYPRV 


5-47 
1-39 
5-55 


7-13# 

7-68 

8-9# 
























€ 


CQ*CP 

CQ*JOB 

CQ$PRI 


1-47 
1-47 
1-48 


1 5-26* 
1 5-22* 
15-24* 
























4 


CQ*RO 
CG*R1 
CGSRNS 


1-47 
1-47 
1-48 


15-19* 
1 5-20* 
1 5-25* 


1 5-29* 






















< 


CQ*RTN 
CS*NMX 
CSfOPN 


1-47 
1-36 
1-36 


1 5-23* 
10-29 
1 0-27 
























( 


CSIARE 
CSIBUF 
CSICHl 


1-44 

1-42 

26- 5# 


7-22 
24-33 
27-31 


26-61 
24-35 


26-85 
24-54 


26-95 
24-69 


26-102 
25-30 
















( 


CSICHR 
CSICOM 
CSIDEV 


25-40 
24-6 
1-43 


26-4# 

24-22# 

25-29* 


26-22 

26-21* 


26-105 
30-23 


27-39 
30-46* 


27-48 
















( 


CSIEQL 
CSIERI 
CSIERR 


1-43 
28-22 
28-6 


25-27* 

28-26 

28-9 


25-44* 
28-32# 

28-12 


26-13 

28-15 


26-16* 
28-18 


26-37 
28~30# 
















i 


CSIFIL 
CSIFIN 


1-44 

30-54* 
26-7 


26-61 

30-62* 

27-53# 


26-72 
30-73* 


26-83 


26-95 


26-95 


26 


-102 


30- 


-22 


30- 


-25 


30-27* 


4 


CSIFUL 
CSIOCL 
CSIOEN 


26-100 

24-2S# 

1-30 


28-144* 

28-47 

24-7# 
























4 


CSIGET 


26-4 


27-4 


27-12 


27-28 


29-15# 


29-18 


29- 


-20 


30- 


-31 


31- 


-17 


31-32 



i 

f 

€ 

I 

26-95 26-102 

24-12 24-12# I 

< 

< 
I 

4 
I 

8-27 8-42 € 

< 

< 
4 

4 

4 
4 

30-44# 30-53* 4 

4 

33-19 33-49 4 

( 
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34-16 


34-20 


35-17 


35-21 






CSIILL 


26-15 


26-41 


26-57 


26-86 


27- 


-6 


CSIMSG 


1-44 


28-38 










CSINOF 


26-104 


28-17# 










CSINXT 


26-26 


27-4 3# 










CSIPRO 


26-99 


28-1 1# 










CSISCN 


24-64 


24-79 


25-6# 








CSISPC 


1-30 


24- 5# 










CSISWT 


26-30 


27-4# 










CSIUSP 


1-44 


24-23* 


28-32 








CXBBAS 


1-49 


22-25 


22-34* 








CXBJOB 


1-49 


18-47* 




22-33* 






CXBMOV 


1-50 


21-69 


22-49 








CXBOWN 


1-49 


18-17 


18-33* 


18-44 


18- 


-46* 


CXBSIZ 


1-49 


22-27 


22-37* 


23-53 






CXBSWP 


22-55 


23-1 1# 










CXTBAS 


1-51 


22-48 


23-18 








CXTBUF 


1-49 


6-41 


9-21 


19-23 


21- 


-34 


CXTRMN 


1-51 


10-15 


20-16 








CXXADR 


6-32 


6-54# 


6-57 








CXXSIZ 


6— 33 


6~6i# 










D.TEARG 


1-71 












DIEMSG 


1-71 












EMTBLK 


1-42 


2-5 


2-10 


3-15 


3- 


-21 




4-24 


4-25 


4-26 


5-20 


5- 


-41 




14-7* 


14-29 


15-20 


21-27 


21- 


-66 




24-7B 


25-8 


26-18 


26-50 


28- 


-36 


EMT PS 


1-46 


14-25 










EMTXIT 


1-43 


2-21 


3-104 


4-32 


5- 


-59 


ERRLOC 


1-44 


26-97 










FIXPRV 


3-69 


3-96 


3-1 10=B 








FRECXT 


1-30 


4-31 


6-49 


7-64 


8- 


-46 


GETCHA 


1-31 


19-1 5# 










GETCXT 


1-30 


4-18 


6-20 


7-28 


8- 


-14 


GETQ 


1-47 


15-15 










GETUCH 


1-42 


24-34 










GTRD50 


30-40 


30-52 


30-61 


31-14# 


33- 


-29 


GTUKBL 


1-30 


21-1741 










ILLDEV 


26-64 


28-8# 










INTPRI 


1-51 


18-25 


18-34 








JM$JOB 


1-45 


12-30* 


15-21 


1 7-25 






JM$LNK 


1-45 


12-26 


12-37* 


1 2-40* 


14- 


-39 


JM*RTN 


1-45 


1-47 


12-31* 


1 5-23 






JPWDEV 


1-37 


6-54 










JPWFLG 


1-37 


6—56 










JPWTYP 
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6-55 
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1-36 
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4-14# 
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1-41 
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LDBASE 
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LDFLAG 


1-39 


7-59 










LDNAME 


1-39 


7-49 










LDPDEV 


1-39 


7-52 










LDSIZE 


1-39 


7-55 











f 

28- 5# t 

i 

4 
t 

t 
t 

21-73 23-35 23-46 

€ 

i 

3-25 3-27* 3-31 3-40 3-55 3-86 3-90 

5-51 6-26 6-39 11-19 12-9 12-31 13-9 

21-74 24-16 24-28 24-44 24-49 24-63 24-66 i 

6-50 12-45 13-26 14-52 21-83 24-80 27-55 t 

18-44# 21-40 21-58 21-82 { 

18-12# 21-21 

« 

i 
t 

i 
t 

i 
i 
i 

i 
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PO*SYS 


1-40 


14-5 








P2*CXT 


1-40 
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